Как заставить форму находиться всегда позади всех окон
Материал из DRKB
Как заставить форму находиться всегда позади всех окон[править | править код]
type
TForm1 = class(TForm)
procedure WndProc(var message: TMessage); override;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WndProc(var message: TMessage);
begin
case message.Msg of
WM_WINDOWPOSCHANGING: PWindowPos(Message.LParam)^.hwndInsertAfter := HWND_BOTTOM;
end;
inherited;
end;
Source: Взято из http://forum.sources.ru
ID: 00445