رسائل في دلفي

من طرف **salme** السبت يناير 21, 2017 5:34 pm

رسالة

رسائل في دلفي

ضع على النموذج أو الفورم 2 أزرار

انقر على الفورم واكتب تالي :

الكود:: procedure TForm1.FormCreate(Sender: TObject); // ....... begin Form1.Position := poScreenCenter; // ........ Form1.Height := 200; //........ Form1.Width := 350; // ........ Form1.Caption := 'رســـــالـة'; // ............ Form1.Button1.Left := 30; // ........ Form1.Button1.Top := 50;// ........... Form1.Button1.Height := 30; // ..... Form1.Button1.Width := 90; // Form1.Button1.Caption := 'انقر هنا'; // ..... Form1.Button2.Left := 205; // ....... Form1.Button2.Top := 100; // ........... Form1.Button2.Height := 30; // ........ Form1.Button2.Width := 105; // ....... Form1.Button2.Caption := 'خروج '; // ......... end; // .... // انقر على زر الاول procedure TForm1.Button1Click(Sender: TObject); // ..... begin // .... // اكتب تالي // عند نقر تظهر رسالة ShowMessage('السلام عليكم '); // ... end; // .... // ...... // انقر على زر الثاني procedure TForm1.Button2Click(Sender: TObject); // ..... begin // ... // اكتب تالي Close; // ....... end; // ....

المصدر دلفي تعليم
delph.forumalgerie.net