【结贴】关于模态对话框的问题**

taiji

我在一个业务信息中建立了两个窗体，分别将两个窗体定义到业务信息中，在业务信息的InfoCreate和InfoDestroy中将他们创建和释放，我想实现类似向导的功能，窗体1以模态的方式显示，点击窗体1的按钮，就会隐藏窗体1，并模态方式显示窗体2，但显示窗体2后，再点击窗体2的按钮，模态显示窗体1，这时总是抱错'cannot make a visible window modal'，请问这是怎么回事?
代码:
业务信息中的定义
private
    {private declarations}
    mobjFormDRZB1:TDRZB1;
    mobjFormDRZB2:TDRZB2;
    mobjFormDRZB3:TDRZB3;
  public
    {public declarations}
    procedure ShowExportDialog();
    property FormDRZB1:TDRZB1 read mobjFormDRZB1;
    property FormDRZB2:TDRZB2 read mobjFormDRZB2;
    property FormDRZB3:TDRZB3 read mobjFormDRZB3;

功能调用窗体1的方法
procedure THSEZBDRXX.ShowExportDialog();
begin
    mobjFormDRZB1.ShowModal;
end;
窗体1调用窗体2
procedure TDRZB1.Button1Click(Sender: TObject);
begin
    Visible:=false;
    THSEZBDRXX(InfoBroker.Info).FormDRZB2.ShowModal;
end;
窗体2调用窗体1
procedure TDRZB2.Button3Click(Sender: TObject);
begin
   Visible:=false;
    THSEZBDRXX(InfoBroker.Info).FormDRZB1.ShowModal;
end;

taiji

抱错总是出现在“窗体2调用窗体1”时
procedure TDRZB2.Button3Click(Sender: TObject);
begin
   Visible:=false;
    THSEZBDRXX(InfoBroker.Info).FormDRZB1.ShowModal;  //运行到这里，就会抱错
end;

lixy

模式化的窗体不能设置visible。做向导一般是在一个窗体上放置几层控件，控制控件的隐藏显示

taiji

比如我在vb中用相同的例子，只要调用me.hide,然后调用FormDRZB1.show(1)就可以了，但在x3平台下，无论那是调用visible:=false还是hide或close都没有用，而且我关闭了窗体2，窗体1还是显示的，这时什么机制呢?

lixy

非模式化窗体才能控制 hide show，这个跟平台没关系，是win32api决定的。
你把窗体用show调用起来，就可以随便控制了。如果是模式化的，只能在显示出来的窗体上调用close关闭本窗体。

taiji

我就是在显示出来的窗体中调用close关闭窗体的

lixy

http://www.baidu.com/s?tn=myie2d ... ndow+modal&ct=0

taiji

我已经测试过了，show是可以的，但我要的是showmodal，

taiji

就算我在showmodal前加了visible:=false也是不行的，这说明并没有消除模态

lixy

楼主看看那些网址。