Combobox ItemIndex=-1; Text ändern im Event

[SirThornberry]

ich hab eine Lösung:

Delphi-Quellcode:

    procedure ResetCMB(var AMsg: TMessage); message wm_user + 1;
[...]
procedure TForm1.ResetCMB(var AMsg: TMessage);
begin
  ComboBox1.ItemIndex := -1;
  ComboBox1.Text      := 'nicht gültig';
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if MessageBox(Self.Handle, 'Konvertierung durchführen?', 'Frage', MB_YESNO or MB_ICONQUESTION) <> IDYES then
  begin
    PostMessage(Self.Handle, WM_USER + 1, 0, 0);
  end;
end;