ShowModal如何使用

Question

在主窗体中添加了一“下一步”按钮，用ShowModal显示下一窗体名为001，在001窗体中又有“下一步”按钮，此时按下001窗体中的“下一步”按钮，要显示下一窗体002，同时关闭要关闭001窗体，可惜我无法实现，002能显示，同样，001也还在我眼前，请问如何实现这一功能？

Answer 1

通过消息传递,关闭001，这样你要会使用API了
也可以是
不要使用ShowModal;
frm002.show;
frm001.close;

Answer 2

不要API，但一定要用showmodal，不知道还是否有其他方法

Answer 3

在form1中：
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal;
end;
在form2中：
procedure TForm2.FormActivate(Sender: TObject);
begin
    form1.Hide;
end;
有问题请发信息到我的E-mail:[email protected]

Answer 4

不要API,showmodal好象不能!
曾经遇过同样问题!
关注!

Answer 5

var
  l: integer;
begin
.....
l := Form1.Left;
Form1.Left := - 10000;
Form2.ShowModal();
Form1.Left := l;
.....
end;