Как сделать форму всегда позади всех окон?

protected
 procedure CreateParams(var Params: TCreateParams); override;
//...
procedure TForm.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 if Assigned(Application.MainForm) then
 begin
  Params.WndParent := GetDesktopWindow;
  Params.Style := WS_CHILD;
 end;
end;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...