模式窗体的问题
在模式窗体中弹出一对话框，关闭对话框时模式窗体也随着关闭了，这是怎么回事啊啊。主要代码如下：
function TfrmChose.checkdata:Boolean;
begin
Result:=False;
if cbClass.Text ='' then
begin
Application.MessageBox('班级不能为空，请选择班级！','缺少内容',MB_OK +
MB_ICONINFORMATION);
cbClass.SetFocus;
Exit;
end;
Result:=True;
end;
procedure TfrmChose.btnOKClick(Sender: TObject);
begin
if checkdata then
begin
……
end;
end;
问题点数：100、回复次数：5Top
1 楼hety（King Of Java）回复于 2002-10-25 17:11:04 得分 10
BTNOK的属性！Top
2 楼neilwq（啄木鸟）回复于 2002-10-25 17:19:11 得分 50
bitbtn的modalresult属性改为mrnoneTop
3 楼Snakeguo（Guoguo）回复于 2002-10-25 17:19:22 得分 20
btnOK的ModelResult属性就设为brNoneTop
4 楼wzrlover（无语无声无欲无泪吾独行!）回复于 2002-10-25 17:19:22 得分 20
var
IsClose:Boolean;
.....
function TfrmChose.checkdata:Boolean;
begin
Result:=False;
if cbClass.Text ='' then
begin
IsClose:=false;//不关闭
Application.MessageBox('班级不能为空，请选择班级！','缺少内容',MB_OK +
MB_ICONINFORMATION);
cbClass.SetFocus;
Exit;
end;
Result:=True;
IsClose:=true;//关闭
end;
在FrmChose.OnCloseQuery中
canClose:=IsClose;Top
5 楼kaidu（Roger）回复于 2002-10-25 17:30:07 得分 0
非常感谢大家的帮助。问题已经解决，我分多，把分加到一百分！马上结帖Top
