Zwei Combobox

[Wuaegner]

Delphi-Quellcode:

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

implementation 

{$R *.dfm} 

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

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

Ja, so ist es gemeint. Jedoch ist in  if (cb1) and (cb2) then... dir Überprüfung von cb1 überflüssig da es ja eine Zeile davor immer auf True gesetzt wird.
Es reicht also :  if cb2 then...

Gruß Flo