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;
|