05-08-2015, 10:18 PM
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
رسائل في دلفي
ضع على النموذج أو الفورم 2 أزرار
انقر على الفورم واكتب تالي :
// انقر على زر الاول
اذا كان هناك من يرقب في مثل هذا يقول لي واصل أو تابل
مرحبا بكم اعضاء منتدى دلفي للعرب ونرجو منكم أن تقبلوني معكم وبينكم
واشكركم على هذا المنتدى الجميل الرائع
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
رسائل في دلفي
ضع على النموذج أو الفورم 2 أزرار
انقر على الفورم واكتب تالي :
كود :
rocedure 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;مرحبا بكم اعضاء منتدى دلفي للعرب ونرجو منكم أن تقبلوني معكم وبينكم
واشكركم على هذا المنتدى الجميل الرائع