Offene TDBLookupComboBox verursaxht Exception bei ESC-Taste

[Papaschlumpf73]

Das hatte ich auch schon mal, bin aber zu faul solchen Fehlern auf den Grund zu gehen. Das hier hilft jedenfalls:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if DBLookupComboBox1.ListVisible then
 begin 
 DBLookupComboBox1.CloseUp(true); 
 Abort; 
 end;
end;