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.

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Object-Pascal / Delphi-Language" nach "VCL / WinForms / Controls" verschoben.
TCheckBox -> VCL

[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

[Matze]

Hi

Zitat:

Zitat von HolgerCW

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

Meistens TCheckBox oder TRadioButton

Zitat:

Zitat von HolgerCW

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

Enabled, da weiß jeder, was es bedeutet und man sieht auch sofort, dass man ein Control nicht bedienen kann. Nur diese Lösung finde ich persönlich sauber.

[HolgerCW]

OK,

Du hast recht,

nur wollte ich noch mit roter Schrift eine Signalwirkung schaffen, um den Fokus des Betrachters auf dieses Feld zu ziehen, auch wenn es enabled ist.
Finde da keine Lösung

Gruss

Holger

[Matze]

Wozu muss es im deaktivierten Zustand denn rot hervorstechen sollen, wenn man doch eh nichts daran ändern kann? :gruebel:

[shmia]

Zitat:

Zitat von HolgerCW

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

Wenn es mehrere Boolean Zustände sind, dann TCheckListBox.
Ansonsten kann man auch ein Label benützen, den Font auf WingDings setzen und dann die Zeichen #112 bzw. #120 zuweisen.

[s-off]

Zitat:

Zitat von HolgerCW

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 ?

Prinzipiell würde es genügen, die Toggle-Methode zu überschreiben.
Habe Dir das Ganze mal in eine kleine Komponente gepackt; so kannst Du die Eigenschaft 'Changeable' zur Designtime bequem über den Objektinspektor anpassen, und zur Laufzeit über Changeable := True bzw. False steuern.