关于edit焦点的问题 打开Form1后,edit1默认得到焦点,在edit1失去焦点时,检查edit1.text是否为空,为空则使得edit1继续得到焦点,并提示用户输入内容,但,如果用户点击的是 btnClose 则不提示,并退出Form1这个该如何实现呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1Exit(Sender: TObject);begin if Self.ActiveControl = Button1 then Exit; ShowMessage('不能为空');end; 在线等memo自动增高问题 一个简单的网络IP数据包监视程序 connection与connectiongstring的区别 代码为何出错? 弹出窗口关闭后怎么让主窗口得到焦点? 如何生成另外一个exe程序(愿以传奇木马原代码做酬谢) 祝贺firetoucher成为DELPHI版的大版主 钱钱钱,我到底值多少钱?我想买房子...55555 为什么我的DELPHI7的Internet页面里面没有了TClientSocket和TServerSocket? 各位高手,这个查询怎么写,帮帮我,我要崩溃了,谢谢! delphi7中使用spread8,出错 datetime转换varchar问题
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if Self.ActiveControl = Button1 then Exit;
ShowMessage('不能为空');
end;