Zwei Combobox

[Stevie]

Zitat von Sharky:

Hai,

und um die IF-Abfrage zu vermeiden kannst Du es auch so schreiben:

Delphi-Quellcode:

var
  Form1: TForm1;
  cb1: Boolean = False;
  cb2: Boolean = False;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   cb1 := True;
   Button1.Enabled := (cb1) and (cb2);
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   cb2 := True;
   Button1.Enabled := (cb1) and (cb2);
end;

Oder:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   cb1 := True;
   Button1.Enabled := cb2;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   cb2 := True;
   Button1.Enabled := cb1;
end;

Warum auf Werte überprüfen, die schon bekannt sind???