我的做法: procedure TForm2.Button1Click(Sender: TObject); begin form3.ShowModal; close; end; 可是不能在打开form3的同时关闭form2 大家遇到这种情况一般怎么实现,请高手指定

huyang您好：不知您是否用作登陆 可参考： http://delphi.ktop.com.tw/topic.php?topic_id=22091

 
unit1
procedure TForm1.Button1Click(Sender: TObject);
begin
  ModalResult := mrOK;
end;
…………………………………………………………………………
Project1.dpr    program Project1;    uses
  Forms,Controls,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};    {$R *.res}    begin
  Application.Initialize; 
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);
 
  if Form1.ShowModal <> mrOK then
     Application.Terminate;
  Form1.Hide;
  Form1.Free;    
  Application.Run;    end.
先开form1,按Form1的Button1进入Form2,并关闭Form1;参考看看
    <>~~~静心养德~~~     發表人 - 
        

多谢deity 兄,小弟是用来实现类似于下一步 下一步操作 已经实现 下面是实现方法 procedure TForm2.Button1Click(Sender: TObject); begin hide(); form3.ShowModal; close(); end;