Zwei Combobox

[Matze]

Wuaegner meint, du sollt 2 Variablen global deklarieren:

Delphi-Quellcode:

var
  Form1: TForm1;
  CB1Geaendert, CB2Gaeändert: boolean;

implementation

im OnCnage der beiden ComboBoxen stellst du sie auf true:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  CB1Geaendert := true;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
  CB2Geaendert := true;
end;

Dann fragst du evtl in den OnChanges npch das ab:

Delphi-Quellcode:

if CB1Geaendert and CB2Geaendert then
  Button1.Enabled := false;

also dann so:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  CB1Geaendert := true;
  if CB1Geaendert and CB2Geaendert then
    Button1.Enabled := false;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
  CB2Geaendert := true;
  if CB1Geaendert and CB2Geaendert then
    Button1.Enabled := false;
end;

Ausfühlicher geht's glaub kaum mehr.


Edit: Mist, ich schreib nie mehr sowas langes