TCheckBox -> Click abbrechen

[HolgerCW]

Hallo zusammen,

wie kann ich bei einer Checkbox, ein entfernen des Hakens unterbinden (Rückgängig machen)

Gruss

Holger

[Progman]

CheckBox1.Checked:=True; im OnClick

[HolgerCW]

Hi,

habe es vielleicht falsch geschrieben.

Wollte, wenn die Checkbox.checked = TRUE ist, dass dieses so bleibt und wenn die Checkbox.checked = FALSE ist, das dieses so bleibt.

Gruss

Holger

[Progman]

achso, na einfach Enabled:=False ?

[Matze]

Hi,

dafür ist die Eigenschaft Enabled vorgesehen.


Edit: Da war wohl wieder einer schneller.

[HolgerCW]

Hi,

die möchte ich aber auch nicht, da es dadurch ausgegraut wird.

Wie mache ich es dann ?

Gruss

Holger

[Matze]

Hi,

das ist zwar nicht sinnvoll, da es gegen das Standardverhalten von Windows spricht und somit Verwirrungen vorauszusehen sind, doch ein kleines Workaround: Setze deine CheckBox auf ein Panel und setze dort die Eigenschaft Enabled. Das würde mit deinem Edit übrigens auch funktionieren.

[s-off]

Oder so:

Delphi-Quellcode:

Unit Unit1;

Interface

Uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls;

Type
   TForm1 = Class(TForm)
      CheckBox1: TCheckBox;
      Procedure CheckBox1Click(Sender: TObject);
      Procedure CheckBox1MouseEnter(Sender: TObject);
   private
      bChecked: Boolean;
   End;

Var
   Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.CheckBox1Click(Sender: TObject);
Begin
   Checkbox1.Checked := bChecked;
End;

Procedure TForm1.CheckBox1MouseEnter(Sender: TObject);
Begin
   bChecked := Checkbox1.Checked;
End;

End.

Edit: Funktioniert dann allerdings nur, wenn der Status mit der Maus verändert wird. Schön also auch nicht.

[HolgerCW]

Hi,

danke schon mal.

1. Was nutzt Ihr denn dann für ein Objekt, um anzuzeigen, das etwas True oder False ist ?

2. Und was würdet Ihr dann benutzen, das in einer bestimmten Situation dieser Wert auch geändert werden soll ?

Gruss

Holger