Folgender Ansatz funktioniert leider nicht - weiß jemand warum:
Delphi-Quellcode:
var
OldComboText: string;
procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
MessageDlg('OnCloseUp: ' + ComboBox1.Text, mtInformation, [mbOK], 0); // alter Text
OldComboText := ComboBox1.Text;
end;
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
MessageDlg('OnSelect: ' + ComboBox1.Text, mtInformation, [mbOK], 0); // neuer Text
ComboBox1.Text := OldComboText + ' ' + ComboBox1.Text; // funktioniert nicht!!
end;
Außerdem wird erstaunlicherweise bei der Aktivierung dieser beiden Ereignisse das OnChange-Ereignis deaktiviert!!!