...keep a form always in the background?

Author: Evian
Homepage: www.phillsoft.de

Category: Forms

(* Mit dem folgendem Code liegt die Form des
Programms diereckt auf dem Desktop, also immer
Hintergrund, selbst wenn sie den Fokus bekommt *)


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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base