问题解决了,方法如下:
在自己设计的Form的OnCreate事件中修改一下Form的属性:
procedure TForm2.FormCreate(Sender: TObject);
begin
self.Visible:=false;
self.Enabled:=true;
self.FFormState:=self.FFormState-[fsModal];
self.FormStyle:=fsNormal; //不是fsMDIChild都可以
end;
模式对话框的创建代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
f : TForm2;
begin
f:=TForm2.Create(Application);
try
if f.ShowModal=mrOk then //显示这个窗体
{执行一些代码}
finally
f.Free;
end;
end;