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;
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;