Button1.Enable

[Delphiturbo]

Hallo
warum funktioniert der Code nicht !!!
wenn ich die CheckBox aktiviere dann wird das Button aktiv
aber wenn ich das Häkchen entferne dann bleibt das Button aktiv !!!

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
If CheckBox1.Enabled=true then
Button1.Enabled:=True;
 
If CheckBox1.Enabled=false then
Button1.Enabled:=false;
end;

Ich möchte aber keinen Time verwenden

[dominikkv]

probiers mal mit

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Button1.Enabled := CheckBox1.checked;
end;

[himitsu]

weil man nicht direkt auf True und False testen soll? (vorallem nicht auf True ... bei False ist es eher unproblematisch)
(gibt auch schon genügend Threads hier, warum das so ist.)

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  If CheckBox1.Checked = False then
    Button1.Enabled := False
  Else
    Button1.Enabled := True;
end;

aber warum denn so umständlich?

Button.Enabled = Boolean
CheckBox1.Checked = Bollean
CheckBox1.Checked = Bollean = Button.Enabled
CheckBox1.Checked = Button.Enabled

Delphi-Quellcode:

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

[Delphiturbo]

beides gehen nicht. Bestimmt nicht getestet oder :mrgreen:

[Matze]

Da du den Button aktiviert haben möchtest, sobald die Checkbox einen Haken besitzt (ich gehe davon aus), sollte Dominiks Code funktionieren.

[mkinzler]

Delphi-Quellcode:

Button1.Enabled := CheckBox1.Enabled;

[Zugi]

Hallo!

Versuchs doch noch mal mit der Lösung von dominikkv (#2). Du hast Enabled und checked verwechselt!

Gruß,
Zugi

[Klaus01]

Zitat:

Zitat von Delphiturbo

beides gehen nicht. Bestimmt nicht getestet oder :mrgreen:

Gehen sehr wohl, bestimmt falsch getestet oder?

Vielleicht solltest Du noch vorher festlegen, dass
der Button zu Anfang disabled oder enabled sein soll.

Grüße
KLaus

[Delphiturbo]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

Button1.Enabled := CheckBox1.Enabled;

Dann teste bitte :mrgreen:

[SirThornberry]

Kannst du dem Thema bitte einen aussagekräftigen Titel geben unter dem man sich annähernd vorstellen kann worum es geht? :)