combobox enabled

[Sharky]

Hai herrntor,

evnentuell so:

Delphi-Quellcode:

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
  ComboBox1.Enabled := not ((ComboBox2.Text <> '') AND (CheckBox1.Checked))
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  ComboBox1.Enabled := not ((ComboBox2.Text <> '') AND (CheckBox1.Checked))
end;