Form Always On Top Delphi

Tambahkan 1 Form dan 1 Button :

Double klik pada Button dan masukkan source code dibawah :

procedure TForm1.Button1Click(Sender: TObject);<br />begin<br />SetWindowPos(<br />  Handle,<br />  HWND_TOPMOST,<br />  0,<br />  0,<br />  0,<br />  0,<br />  SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);<br />end;

Source Code Lengkap :

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, StdCtrls;<br /><br />type<br />  TForm1 = class(TForm)<br />    Button1: TButton;<br />    procedure Button1Click(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />procedure TForm1.Button1Click(Sender: TObject);<br />begin<br />SetWindowPos(<br />  Handle,<br />  HWND_TOPMOST,<br />  0,<br />  0,<br />  0,<br />  0,<br />  SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);<br />end;<br /><br />end.

Program + Source Code dapat di download di SINI