怎样才能让窗体最小化显示在任务栏里

Question

怎样才能让窗体最小化显示在任务栏里

Answer 1

重载
procedure CreateParams(var Params: TCreateParams); override;begin
  inherited CreateParams(Params);
  Params.ExStyle := WS_EX_APPWINDOW;
end;

Answer 2

呵呵
==
public
    procedure CreateParams(var Params: TCreateParams); override;   ///定义
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := WS_EX_APPWINDOW;
end;

Answer 3

呵呵
==
public
    procedure CreateParams(var Params: TCreateParams); override;   ///定义
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := WS_EX_APPWINDOW;
end;