如何设计对话框窗口

问题解决了，方法如下：

在自己设计的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;