Combobox ItemIndex=-1; Text ändern im Event

[Sharky]

Hai StTüff,

ich denke auch das der von Marabu genannte Ansatz der beste ist.
Wenn Du eine TActionList verwendest und dort eine TAction mit einen OnExecute und einem OnUpdate Ereigniss hast ist das ganze recht einfach und für den Anwender gut zu bedienen.

Delphi-Quellcode:

procedure TDemo_Form.ac_ConvertExecute(Sender: TObject);  //OnExecute einer TAction
begin
  ShowMessage('Ich konvertiere');
end;

procedure TDemo_Form.ac_ConvertUpdate(Sender: TObject); // OnUpDate der TAction
begin
  ac_Convert.Enabled := cb_Formate.ItemIndex > 0;
end;

procedure TDemo_Form.FormCreate(Sender: TObject);
begin
  cb_Formate.Clear;
  cb_Formate.Style := csDropDownList;
  cb_Formate.Items.Add('nicht gültig');
  cb_Formate.Items.Add('blubb');
  cb_Formate.Items.Add('foo');
  btn_Convert.Action := ac_Convert;
end;