16,748
社区成员
发帖
与我相关
我的任务
分享EXIT
procedure TFlog.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if islogin=false then
begin
showmessage('fclose');
application.Terminate ;
end;
end;
procedure TFlog.RzBitBtn1Click(Sender: TObject);
begin
if rzComboBox1.ItemIndex<0 then begin
messagebox(Handle,'请选择一个正确的用户名！','提示',MB_OK+MB_ICONINFORMATION);
rzComboBox1.SetFocus;
Exit;
end;
end;
为什么我运行的时候点rzComboBox1.text是空的时候显示过MESSAGEBOX后就跳到onclose内`如何让他只弹出MESSAGEBOX后让用户继续操作？
begin
if islogin=false then
begin
showmessage('fclose');
application.Terminate ;
end;
end;
procedure TFlog.RzBitBtn1Click(Sender: TObject);
begin
if rzComboBox1.ItemIndex<0 then begin
messagebox(Handle,'请选择一个正确的用户名！','提示',MB_OK+MB_ICONINFORMATION);
rzComboBox1.SetFocus;
Exit;
end;
end;
为什么我运行的时候点rzComboBox1.text是空的时候显示过MESSAGEBOX后就跳到onclose内`如何让他只弹出MESSAGEBOX后让用户继续操作？
...全文
请发表友善的回复…
发表回复
dmz2922990 2006-11-11
- 打赏
- 举报
就是做登陆界面的时候判断用户名是否为空！
如果为空就弹出提示！然后让用户继续登陆！
可是我写的弹出提示后就退出整个工程了。
如果为空就弹出提示！然后让用户继续登陆！
可是我写的弹出提示后就退出整个工程了。
踢踏 2006-11-11
- 打赏
- 举报
多贴点相关代码，好像上面的代码没什么问题。
踢踏 2006-11-11
- 打赏
- 举报
没看明白～～～
dmz2922990 2006-11-11
- 打赏
- 举报
换了还是进入onclose
madyak 2006-11-11
- 打赏
- 举报
把Exit;换成
Abort;
Abort;
dmz2922990 2006-11-11
- 打赏
- 举报
rzComboBox1是只可选的！
里面有用户名`
里面有用户名`
zuoansuifeng 2006-11-11
- 打赏
- 举报
问题出在这 if rzComboBox1.ItemIndex<0 then
而你要的结果是rzComboBox1.text = '' 的时候 当然会错啦~~~
而你要的结果是rzComboBox1.text = '' 的时候 当然会错啦~~~
