O método CreateParams é um método virtual que permite que você faça alterações no registro (record) de parâmetros de criação do form. Alterando esses parâmetros você poderá conseguir diversos efeitos. Entre estes está o efeito desejado: poder minimizar para a TaskBar.
Vamos supor que o seu form chame-se Form2. Aí vai o código necessário para conseguir o efeito desejado.
type
TForm2 = class(TForm)
public
{ Public declarations }
// **********************************
// Acrescente este método ao seu form
// **********************************
procedure CreateParams(var Params: TCreateParams); override;
end;
implementation
{$R *.dfm}
// **********************************
// Acrescente este método ao seu form
// **********************************
procedure TForm2.CreateParams(var Params: TCreateParams) ;
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
Nenhum comentário:
Postar um comentário