شرح رسائل في دلفي Delphi

[طيباوي ابو علي1]

رسائل في دلفي 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; // ....