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;