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

像ＩＥ和ＱＱ那。ＩＥ中当打开一个新窗口时它在任务栏上有一个自己的图标。ＱＱ中的每一个对话窗口，都有一个自己的图标。  
  问题点数：20、回复次数：4Top

1 楼Kevin_Lmx（繁华阅尽）回复于 2005-01-04 11:00:19 得分 10

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

2 楼ghchen（）回复于 2005-01-04 11:04:40 得分 0

学习,顶Top

3 楼coolnan（踏平九城）回复于 2005-01-04 14:46:10 得分 0

API函数Top

4 楼jackie168（http://soft.eastrise.net）回复于 2005-01-04 15:13:51 得分 10

在类声明中重载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;Top

相关问题

• ws
• 窗体
• 任务栏
• createparams
• exstyle
• 显示
• tcreateparams
• appwindow
• gwl
• form2

• 帖主：huang1023
• Kevin_Lmx
• jackie168

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载