Membuat Form Delphi On Top atau no Top

Oky buat anda yang Suka bikin Injek Dengan delphi Dan mau memodifnya Oc Kali ini saya Mau Berbagi Tentang Cara Membuat Form Delphi Ontop/NoTop, Bagai mana caranya Oky kita langsung saja ke TKP

Tambahkan Kode berikut ini Diantara Button untuk Efek On top :

SetWindowPos(
Handle,
HWND_TOPMOST,
0,
0,
0,
0,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Contoh :

procedure TForm1.Button2Click(Sender: TObject);
    begin
    SetWindowPos(
      Handle,
      HWND_TOPMOST,
      0,
      0,
      0,
      0,
      SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    end;

Tambahkan Kode berikut ini Diantara Button Untuk No top :

SetWindowPos(
Handle,
HWND_NOTOPMOST,
0,
0,
0,
0,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Contoh :

procedure TForm1.Button2Click(Sender: TObject);
    begin
    SetWindowPos(
      Handle,
      HWND_NOTOPMOST,
      0,
      0,
      0,
      0,
      SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    end;

Untuk Contoh Source kode yang Sudah jadi anda bisa langsung Download di sini

Anda baru saja membaca artikel tentang - Membuat Form Delphi On Top atau no Top. Silahkan baca artikel berikutnya Tentang - - Jangan lupa g+1 / fb / twit :)