模式窗体的问题
在模式窗体中弹出一对话框,关闭对话框时模式窗体也随着关闭了,这是怎么回事啊啊。主要代码如下:
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




