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

Delphi-Quellcode:

 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 :

Delphi-Quellcode:

 if cb2 then...

:zwinker:

Gruß Flo

[Wuaegner]

Ja ja man muss hier verdammt schnell sein mit den Beiträgen ! :mrgreen: