没有用onchange. 是这样的 procedure TFrmFTB.CmboxsortKeyPress(Sender: TObject; var Key: Char); begin if Cmboxsort.DroppedDown then exit; if key=#13 then EdtnoKeyPress(sender,key); end; 因为在EdtnoKeyPress(sender,key)中执行一个查询,当没有符合条件的结果时, showmessage,运行时发现若没结果时,message就 show了两次,后来才发现这段程序走了两遍。我实在是弄不懂?
先评比ONClick看是运行效果
还有是不是你用ONChange了
如果有这里一定有问题了!
procedure TFrmFTB.CmboxsortKeyPress(Sender: TObject; var Key: Char);
begin
if Cmboxsort.DroppedDown then
exit;
if key=#13 then
EdtnoKeyPress(sender,key);
end; 因为在EdtnoKeyPress(sender,key)中执行一个查询,当没有符合条件的结果时,
showmessage,运行时发现若没结果时,message就 show了两次,后来才发现这段程序走了两遍。我实在是弄不懂?