Hä? Warum ist das Ändern von Checked ein Click?

[freejay]

Delphi-Quellcode:

type
  TMyCheckBox = class(TCheckBox)
  end;

...

TMyCheckBox(CheckBox1).ClicksDisabled := True;

Ich glaube so ein Konstrukt hab ich in meinem Vierteljahrhundert Delphi erst einmal benutzt/benutzen müssen. Das ist mir einfach nicht mehr eingefallen...

3 x Danke!

[himitsu]

Viele nennen sowas type THackedCheckBox = class(TCheckBox); ,
aber Einige haben sich angewöhnt es netter zu benennen type TCheckBoxAccess = class(TCheckBox); .
(das END ist optional, wenn ansonsten nichts verändert wird)

Es ginge auch ohne es Umzubennen
type TCheckBox = class(StdCtrls.TCheckBox); // bzw. (Vcl.StdCtrls.TCheckBox)
Oberhalb das Form kann man damit auch lokal Komponenten "umbauen", welche so dann auch direkt auf der Form laden. (zur Laufzeit, nicht im FormDesigner)



PS, siehe #16 ... da brav für voten, damit sowas hier bald nicht mehr nötig ist.

[jaenicke]

Ja, es geht auch ohne anders genannten Typ. Das mache ich allerdings ungern, denn wenn man den Code dann kopiert, wundert man sich, dass er anderswo nicht funktioniert. Oder man postet ihn hier im Forum, ohne dran zu denken...

[freejay]

Zitat von himitsu:

...PS, siehe #16 ... da brav für voten, damit sowas hier bald nicht mehr nötig ist.

Done.

[bcvs]

Das OnClick einer Checkbox wird immer ausgelöst, wenn sich der Checked-Staus ändert, sei es durch Anklicken oder aus dem Programm heraus. Sollte vielleicht besser OnChecked heißen.

Ich mache es immer so. Ohne Actions oder ClassHelper oder Ableitungen

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if not DoCheckBox1Click then
    exit;

  DoCheckBox2Click:=false;
  CheckBox2.Checked := False;
  DoCheckBox2Click:=true;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if not DoCheckBox2Click then
    exit;

  DoCheckBox1Click:=false;
  CheckBox1.Checked := False;
  DoCheckBox1Click:=true;
end;

DoCheckBox1Click und DoCheckBox2Click natürlich irgenwo vorher sinnvoll auf true setzen.