Checkbox?? will etwas damit enablen

[snow]

Hallo ich würde gerne folgendes programieren.
Ich habe eine checkbox, und eine Combobox
Beim systemstart ist dei Combobox disabled wenn jetzt jemand den hacken bei der Checkbox setzt dann soll die Combobox aktiviert werden...

Soweit alles klar. Doch es gibt kein Ereigniss, was z. auftritt wenn die Checkbox gecheckt wird.... das heist ich müsste das OnClick ereignis nehmen und dann

Delphi-Quellcode:

procedure Tneulokerstell.CheckBox1Click(Sender: TObject);
begin

if Checkbox1.checked:= true then Combobox1.enabled:= true; 

end;

wenn ich das mache dann kommt das hier:

Zitat:

Unit3.pas(120,13) Error: Boolean expression expected, but got "untyped"
Unit3.pas(150) Fatal: There were 1 errors compiling module, stopping

Was mach ich falsch???

MfG snow

[Meflin]

if Checkbox1.checked:= true then Combobox1.enabled:= true; Schaus dir mal genau an. Da ist ein : zu viel drin

Besser ists so:
if Checkbox1.checked = true then Combobox1.enabled:= true; Bei ersterem handelt es sich ja um einen Vergleich (Vergleichsoperator ist das =) und nicht um eine Zuweisung (:=).

[Andreas L.]

Am besten du machst das gleich so:

ComboBox.enabled := checkbox.checked; Dann sparst du dir die if Abfrage!

[Matze]

Hallo, mal abgesehen davon, dass sich dein Code nicht kompilieren lassen würde, funktioniert das bei mir so:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Combobox1.Enabled := CheckBox1.Checked;
end;

Edit: Da war wohl einer schneller. Überprüfe übrigens nie auf = true. Wieso?
Edit 2: Ähm da waren ja sogar 2 schneller. *g*

[inherited]

Und Überleg mal: Boolean ist ja auch nur ein Variablentyp, der 2 Zustände haben kann, true und false. anstatt if dingsda=true then dasunddas:=true zu schreiben, könntest du auch einfach dasunddas:=dingsda schreiben

[DeddyH]

@Matze: Tröste Dich, ich hatte auch bereits einen halben Roman getippselt, und dann waren gleich 3 Leute schneller

[snow]

Danke habs jetzt hinbekommen.... Muss mich noch an delphi gewöhnen... komme aus der qbasic-welt

MfG snow