Главная » Delphi » Основная » Как минимизировать дочернюю форму в панель задач

Как минимизировать дочернюю форму в панель задач

22:01
unit Unit2;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
 
type
TForm2 = class(TForm)
procedure CreateParams(var Params: TCreateParams); override;
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
{ TForm2 }
 
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent:=GetDesktopWindow();
end;
 
end.