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

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

©Drkb::00425

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