C Carem Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-08 #1 form1上有一个button,点击button的时候，form2就显示。但是如何设定不关闭form2 就不可以点击form1呢？
Y yueer Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-08 #4 procedure TForm1.BitBtn1Click(Sender: TObject); begin if Form2.ShowModal = mrOK then begin //你的操作！ end; end;
procedure TForm1.BitBtn1Click(Sender: TObject); begin if Form2.ShowModal = mrOK then begin //你的操作！ end; end;
C Carem Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-08 #5 to all procedure TForm1.Button5Click(Sender: TObject); begin form2.visible:=true; if Form2.ShowModal = mrOK then begin end; end; end. 是不是该这样？但是按下button5的时候，会显示出错。是不是那里漏了？
to all procedure TForm1.Button5Click(Sender: TObject); begin form2.visible:=true; if Form2.ShowModal = mrOK then begin end; end; end. 是不是该这样？但是按下button5的时候，会显示出错。是不是那里漏了？
H HouBy Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-08 #6 procedure TForm1.Button5Click(Sender: TObject); begin Form2.ShowModal; end; 用以上代码就可以了
C Carem Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-08 #7 procedure TForm1.Button5Click(Sender: TObject); begin form2.visible:=true; Form2.ShowModal; end; end. 编译的时候是好的，但是按下button5的时候，就是出错 cannot make a visible windows model
procedure TForm1.Button5Click(Sender: TObject); begin form2.visible:=true; Form2.ShowModal; end; end. 编译的时候是好的，但是按下button5的时候，就是出错 cannot make a visible windows model
Y yueer Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-08 #8 把form2.visible:=true;去掉不行吗？
Y yueer Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-08 #10 去掉就可以了 直接用 Form2.ShowModal;
