原创作品,允许转载,转载时请务必以超链接形式标明文章
原始出处 、作者信息和本声明。否则将追究法律责任。
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;
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;
var
Form:TForm2;
begin
Form:=TForm2.Create(self);
Form.Show;
end;