TCheckBox -> Click abbrechen

[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.