新建工程,主窗体
Application.CreateForm(Tform1, form1);form1增加一个Button,新建子窗体,使用代码创建:
form2 := Tform2.Create(nil);
form2.Show;
form2在任务栏上显示
procedure Tform2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := GetDesktopWindow;
end;运行,点击Button出现两个窗体form1和form2,这时,打开记事本,使其位置在form1和form2中间,关闭form2,form1竟然置到记事本前,求救
Application.CreateForm(Tform1, form1);form1增加一个Button,新建子窗体,使用代码创建:
form2 := Tform2.Create(nil);
form2.Show;
form2在任务栏上显示
procedure Tform2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := GetDesktopWindow;
end;运行,点击Button出现两个窗体form1和form2,这时,打开记事本,使其位置在form1和form2中间,关闭form2,form1竟然置到记事本前,求救
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货