Udah lama ga ngoprek Delphi, jadi agak2 lupa & lama nyambungin otak ke lingkungan IDE Delphi. Banyak juga fitur-fitur standar Delphi yg lupa juga. Apalagi setelah pindah ke Delphi 2007, cukup drastis lah perubahannya (sebelumnya pake Delphi 7).

Sesuai dengan judulnya, kmaren ada kerjaan lama yg mau direvisi dikit. Jadi pengennya form utamanya di set ke “always on top”. Pusing juga cari2 di properties formnya… akhirnya setelah googling sana-sini, ketemu juga caranya. Jadi intinya, kita memanfaatkan fungsi SetWindowPos() yg ada di unit Windows. Sintaks lengkapnya adalah sebagai berikut:

BOOL SetWindowPos(     
    HWND hWnd,
    HWND hWndInsertAfter,
    int X,
    int Y,
    int cx,
    int cy,
    UINT uFlags
);

Keterangan:

• hWnd: handle dari form
• hWndInsertAfter: yg akan menentukan form kita itu akan “always on top” atau nggak
• X, Y: koordinat form
• cx, cy: ukuran form
• uFlags: flag yg berhubungan dengan ukuran dan penempatan posisi form.

Sorry ya, lg males translate… jadi untuk detilnya silahkan liat saja di help-nya Delphi… :p

Ya untuk lebih singkatnya, cara pakai fungsi tersebut adalah dengan cara meletakkannya di event OnShow() milik form yg bersangkutan.

SetWindowPos(Self.Handle,
HWND_TOPMOST,
0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);

Hasilnya bisa dicoba sendiri…