Delphi 类似实现QQ多窗口显示任务栏上

原创作品，允许转载，转载时请务必以超链接形式标明文章 原始出处 、作者信息和本声明。否则将追究法律责任。 http://bigpower.blog.51cto.com/209892/94976                

Form2为动态创建窗口，在窗口的OnCreate事件中添加以下代码。

procedure TForm2.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));
end;

 

 

在Form1中引用Form2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Form:TForm2;
begin
  Form:=TForm2.Create(self);
  Form.Show;
end;