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;

  Form:=TForm2.Create(self);

  Form.Show;