delphi7 非空判断时 点击提示框 原来填写好的窗口都关掉了

[xjjsky105]

当点击提示框确定 后面那个填写的 窗口都关掉了 怎么不让它关掉

这是代码 ：：
procedure TFrm_ZuFangAddEdit.btn1Click(Sender: TObject);
begin
if Trim(edt_FangJianHao.Text)='' then
begin
MessageBox(Self.Handle,'房间编号不能为空!','提醒',MB_OK or MB_ICONINFORMATION);
edt_FangJianHao.SetFocus;
//Exit;
end;

if Trim(edt_FangDongName.Text)='' then
begin
MessageBox(Self.Handle, '房东姓名不能为空!','提醒',MB_ok or MB_ICONInformation);
edt_FangDongName.SetFocus;
Exit;
end;

if Trim(edt_FangDongPhone.Text)='' then
begin
MessageBox(Self.Handle, '房东手机不能为空!','提醒',MB_ok or MB_ICONInformation);
edt_FangDongPhone.SetFocus;
Exit;
end;

if Trim(edt_ZuKe.Text)='' then
begin
MessageBox(Self.Handle, '租客姓名不能为空!','提醒',MB_ok or MB_ICONInformation);
edt_ZuKe.SetFocus;
Exit;
end;

if Trim(edt_ZuKePhone.Text)='' then
begin
MessageBox(Self.Handle, '租客手机不能为空!','提醒',MB_ok or MB_ICONInformation);
edt_ZuKePhone.SetFocus;
Exit;
end;

//--非空判断 --------

if Frm_ZuFangAddEdit.Caption='租房信息新增' then
begin
with Frm_Data.qry_ZuFang do
begin
Append;
FieldByName('ZuFangCode').AsString:=edt_DanJuHao.Text;

FieldByName('HouseCode').AsString:=edt_FangJianHao.Text;
FieldByName('MonMoney').AsFloat:=StrToFloat(edt_FangDanJia.Text);
FieldByName('HouseName').AsString:=edt_HouseName.Text;
FieldByName('FangDong').AsString:=edt_FangDongName.Text;
FieldByName('Phone1').AsString:=edt_FangDongPhone.Text;
FieldByName('ZuKe').AsString:=edt_ZuKe.Text;
FieldByName('Phone2').AsString:=edt_ZuKePhone.Text;
FieldByName('ShenFen').AsString:=edt_ZuKeShenHao.Text;
FieldByName('StartDate').AsDateTime:=dtp_StartDate.Date;
FieldByName('EndDate').AsDateTime:=dtp_EndDate.Date;
FieldByName('Memo').AsString:=Memo1.Text;
FieldByName('ZuFangTai').AsString:='使用';
post;
end;
MessageBox(Application.Handle,'增加成功','提醒',MB_OK or MB_ICONINFORMATION);
end;

end;

[xjjsky105]

有人知道吗 请教高手赐教

[lyhoo163]

将录入的窗口是类型，设置为置顶试々。

[jjpweb]

引用 2 楼 lyhoo163 的回复:

将录入的窗口是类型，设置为置顶试々。

按道理不该关闭，窗口置顶，防止被刷到后面。 或者messagebox换成showmessage试试

[xjjsky105]

引用 2 楼 lyhoo163 的回复:

将录入的窗口是类型，设置为置顶试々。

我设置录入窗口 formstyle 类型 为fsStayOnTop 后 试了下 还是不行啊 又自动关闭了录入窗口

[xjjsky105]

有谁知道 怎么回事 ？？求教高手

[robotdeng]

提示信息怎么会关窗口? 跟踪调试一下吧或按前面兄弟说的换Showmessage试试.

[xjjsky105]

引用 6 楼 robotdeng 的回复:

提示信息怎么会关窗口? 跟踪调试一下吧或按前面兄弟说的换Showmessage试试.

换成 Showmessage 提示 点击时 还是把 录入窗口关掉了 怎么回事啊