我原来创建窗体用的代码是
Application.CreateForm(TForm1, Form1);
with Form1 do
begin
ShowModal;
Free;
Form1:=nil;
end;
`
``(代码)
```窗体创建后程序不执行之后的代码了,等待该窗体关闭后再执行。而且该进程始终聚焦在新窗体上。直至新窗体关闭。
我希望创建窗体时产生一个新的进程。可以在主窗体和本窗体间任意切换聚焦且可以创建多个同样的窗体,类似oicq的好友发送信息
给分求解决办法
Application.CreateForm(TForm1, Form1);
with Form1 do
begin
ShowModal;
Free;
Form1:=nil;
end;
`
``(代码)
```窗体创建后程序不执行之后的代码了,等待该窗体关闭后再执行。而且该进程始终聚焦在新窗体上。直至新窗体关闭。
我希望创建窗体时产生一个新的进程。可以在主窗体和本窗体间任意切换聚焦且可以创建多个同样的窗体,类似oicq的好友发送信息
给分求解决办法
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(Form2) then
Form2:=TForm2.Create(Application);
Form2.Show;
end;再新窗体中处理这两个事件
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2:=nil;
end;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
params.ExStyle:=params.ExStyle or WS_EX_APPWINDOW;
end;