Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TCheckBox -> Click abbrechen (https://www.delphipraxis.net/101557-tcheckbox-click-abbrechen.html)

HolgerCW 15. Okt 2007 13:51


TCheckBox -> Click abbrechen
 
Hallo zusammen,

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

Gruss

Holger

Progman 15. Okt 2007 14:02

Re: TCheckBox -> Click abbrechen
 
CheckBox1.Checked:=True; im OnClick ;)

HolgerCW 15. Okt 2007 14:06

Re: TCheckBox -> Click abbrechen
 
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 15. Okt 2007 14:07

Re: TCheckBox -> Click abbrechen
 
achso, na einfach Enabled:=False ?

Matze 15. Okt 2007 14:08

Re: TCheckBox -> Click abbrechen
 
Hi,

dafür ist die Eigenschaft Delphi-Referenz durchsuchenEnabled vorgesehen.


Edit: Da war wohl wieder einer schneller.

HolgerCW 15. Okt 2007 14:09

Re: TCheckBox -> Click abbrechen
 
Hi,

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

Wie mache ich es dann ?

Gruss

Holger

Matze 15. Okt 2007 14:15

Re: TCheckBox -> Click abbrechen
 
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 15. Okt 2007 14:17

Re: TCheckBox -> Click abbrechen
 
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 15. Okt 2007 14:17

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

HolgerCW 15. Okt 2007 14:28

Re: TCheckBox -> Click abbrechen
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:01 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz