如何避免onexit事件重复触发? RT 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 加变量判断,第一次执行时置为True,代码中判断是否为True,是就不执行代码 我以前也是用变量的,后来改成以下代码了,你是用来作防递归的触发吗?procedure TForm1.edt1Exit(Sender: TObject);begin edt1.OnExit:=nil; try edt1.Text:='AAA'; //这里的代码可能会再次触发此事件,但这样不会了 finally edt1.OnExit:=edt1Exit; end;end; 或者使用控件的tag属性。第一次执行后给tag赋值~ 重复触发是指第一次触发的消息还没有处理完,第二次就又来了,这个也叫消息重入,绝大多数是由于使用了Application.ProcessMessages导致的,检查一下。 !!!Delphi又出怪事!!! 请教一个关于线程的问题! treeview F1BOOK如何返回当前单元格的位置? 运行出错,看不懂是什么意思(急!!答出着给200分) 我在做程序时,我想在unit3单元引用unit2单元里的函数怎么做啊,我用use unit2还是说找不到该函数,不知道还要添什么代码?(在线等待) 请高手过来!!!:如何在Delphi中根据PID来结束系统线程 怎麼在stringgrid中定位到任意一個地方? UDP如何监听远程端口 请教各位老大一个小问题。 一个真实的项目经历,很多东西大家可以借鉴下 TRichEdit这样的效果如何做到,有图
procedure TForm1.edt1Exit(Sender: TObject);
begin
edt1.OnExit:=nil;
try
edt1.Text:='AAA';
//这里的代码可能会再次触发此事件,但这样不会了
finally
edt1.OnExit:=edt1Exit;
end;
end;