Form - Secundario ficar na Barra de Tarefas

Top  Previous  Next

 

 

// Fazer um form secundario ficar na barra de tarefas

 

type

  TForm2 = class(TForm)

  private

    { Private declarations }

  public

    procedure CreateParams(var Params : TCreateParams); override;

  end;

 

var

  Form2: TForm2;

 

implementation

 

{$R *.DFM}

 

procedure TForm2.CreateParams(var Params: TCreateParams);

begin

  inherited;

  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;

end;