主窗体创建和显示后，再创建并显示多个其他的窗体，想让这些窗体在任务栏都有一个图标，怎么做？

Question

像ＩＥ和ＱＱ那。ＩＥ中当打开一个新窗口时它在任务栏上有一个自己的图标。ＱＱ中的每一个对话窗口，都有一个自己的图标。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowLong(Form2.Handle,GWL_EXSTYLE,GetWindowLong(Form2.Handle,GWL_EXSTYLE) or WS_EX_APPWINDOW);
  Form2.Show;
end;

Answer 2

在类声明中重载CreateParams：
procedure CreateParams(var Params: TCreateParams); override;
然后：
procedure TfrmChild.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle:= Params.ExStyle or WS_EX_APPWINDOW;
end;