CheckBox

[blacky35]

Hallo und guten Morgen,

wenn ich bei einer CheckBox die Eigenschaft "AllowGrayed" auf true gesetzt habe, kommt beim Klick immer zuerst dieser Zustand. Beim Laden der Form ist CheckBox nicht ausgewählt. Kann man irgendwie die Reihenfolge ändern.

z.B. 1. Klick ausgewählt, 2. Klick grayed, 3. Klick nicht gewählt.

mfG blacky

[Binärbaum]

Dann deklariere doch einfach eine Variable, die die Klicks zählt und setze dann die Eigenschaften in Abhängigkeit von dieser Variable.

MfG
Binärbaum

//Edit: Mein 333. Beitrag :cheers:

[shmia]

Zitat:

Zitat von blacky35

wenn ich bei einer CheckBox die Eigenschaft "AllowGrayed" auf true gesetzt habe, kommt beim Klick immer zuerst dieser Zustand. Beim Laden der Form ist CheckBox nicht ausgewählt. Kann man irgendwie die Reihenfolge ändern.

z.B. 1. Klick ausgewählt, 2. Klick grayed, 3. Klick nicht gewählt.

Neue Komponente (abgeleitet von TCheckbox) erstellen.
Die Methode Toggle überschreiben. Die orginale Methode sieht so aus:

Delphi-Quellcode:

procedure TCustomCheckBox.Toggle;
begin
  case State of
    cbUnchecked:
      if AllowGrayed then State := cbGrayed else State := cbChecked;
    cbChecked: State := cbUnchecked;
    cbGrayed: State := cbChecked;
  end;
end;

[blacky35]

Hallo Shmia

danke Dir für den Tipp. Da ich aber Abfänger bin, ist eine neue Komponente für mich noch nicht das Ding. Dein Code ist sicher nur ein Teil der ganzen Arbeit.
Gleichsam wäre eine TEdit wünschenswert, in der der Text rechtsbündig ausgerichtet werden kann. Für Zahlen sähe es besser aus, meiner Meinung nach.

mit freundlichen Grüßen an alle Forumsfreaks

blacky