...untergeordnete Formulare in die Taskbar minimieren?

Autor: Thomas Stutz

Kategorie: Oberfläche

type
  
TForm = class(TForm)
    {...}
  
protected
    procedure 
CreateParams(var Params: TCreateParams); override;
  end;

implementation

{...}

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited 
CreateParams(Params);
  Params.ExStyle   := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := GetDesktopWindow;
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base