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

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;