Combobox ItemIndex=-1; Text ändern im Event

[marabu]

Hallo Stephan,

ich würde das technische Problem so lösen: Die ComboBox würde ich mit dem Style csDropDownList betreiben, bei den Items würde ich dem Item 0 den Text 'nicht gültig' zuweisen, auf die Verwendung von ItemIndex -1 würde ich verzichten.

Delphi-Quellcode:

procedure TDemoForm.ComboBoxChange(Sender: TObject);
begin
  with Sender as TComboBox do
    if MessageDlg('Okay?', mtConfirmation, mbOkCancel, 0) 
      then self.ComboIndex := ItemIndex
      else ItemIndex := self.ComboIndex;
    end;
end;

Freundliche Grüße