Membuat Form Seukuran Layar Yang sedang Aktif

-->

Mungkin temen2  pingin bikin aplikasi yang layarnya otomatis seukuran layar windows yang sedang berjalan dan menempatkan aplikasi selalu berada didepan (stay On Top), yang harus dilakukan cuman nambah beberapa baris program pada procedure OnCreate Form Utama sbb:

 Klik Form, kemudian pada Object Inspector pilih Evens, dan Double klik OnCreate, terus dikalang begin dan end ketik seperti dibawah ini

procedure TForm1.FormCreate(Sender: TObject);

begin

  // **** Start Script untuk stay on top ****** 

        SetWindowPos(Form1.Handle, HWND_TOPMOST,0,0,0,0,

        SWP_NOACTIVATE+SWP_NOMOVE+SWP_NOSIZE);

  // **** End Script untuk stay on top ****** 

  // **** Start Script Merubah Form Seukuran Layar Windows Aktif ****** 

        Form1.ClientWidth:=Screen.Width;

        Form1.ClientHeight:=ScreenHeight;

 // **** End Script Merubah Form Seukuran Layar Windows Aktif ****** 

end;

Semoga bermanfaat...

Tweet