رسائل في دلفي Delphi
ضع على النموذج أو الفورم 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; // ....
كود:
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; // ....