Menjalankan Aplikasi di Tengah - Tengah Layar pada Delphi XE
May 25, 2018
Add Comment
 |
| Tampilan Delphi XE |
Secara default setiap aplikasi yang kita buat akan diletakkan pada posisi default pada saat aplikasi tersebut dijalankan. Untuk meletakkan aplikasi secara default ke tengah-tengah layar monitor dapat dilakukan melalui 2 cara yaitu melalui pengubahan properties position yang diset ke value poScreenCenter atau jika melalui kode editor dapat ditulis sebagai berikut.
Form1.Position := poScreenCenter;
Selain cara diatas dapat pula menggunakan kode program berikut.
Form1.Left := (Screen.width div 2) - (Form1.width div 2);
Form1.Top := (Screen.Height div 2) - (Form1.Height div 2);
Kode tersebut kita tuliskan pada Form1.TForm1 di event onCreate, contoh kode programnya.
Procedure TForm1.FormCreate(Sender : TObject);
Begin
Form1.Left := (Screen.Width div 2) - (Form1.Width div 2);
Form1.Top := (Screen.Height div 2) - (Form1.Height div 2);
end;
Walaupun hasil yang didapat kurang lebih sama tetapi lebih disarankan menggunakan cara atau kode program yang kedua. Hal ini sangat bermanfaat apabila aplikasi yang dibuat dijalankan pada resolusi layar yang berbeda dimana aplikasi dapat lebih menyesuaikan posisinya dengan berbagai resolusi layar. Selamat mencoba... ;)
0 Response to "Menjalankan Aplikasi di Tengah - Tengah Layar pada Delphi XE"
Post a Comment