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

[freejay]

Also wenn ich im Code versuche, bei einer TCheckBox eine Property oder Methode mit "click" zu finden bekomme ich nur "OnClick" , kein "ClicksDisabled"...

[jaenicke]

Zitat:

Zitat von freejay (Beitrag 1524148)

Also wenn ich im Code versuche, bei einer TCheckBox eine Property oder Methode mit "click" zu finden bekomme ich nur "OnClick" , kein "ClicksDisabled"...

Wie Use schon schrieb... die Property steht unter protected, ist also nur in der Klasse selbst und der Unit, in der sie deklariert ist, erreichbar.

Zitat:

Zitat von Uwe Raabe (Beitrag 1523947)

Lösung 1 (quick-and-dirty): Du setzt das (allerdings protected) Property ClicksDisabled temporär auf True.

Delphi-Quellcode:

type
  TMyCheckBox = class(TCheckBox)
  end;

...

TMyCheckBox(CheckBox1).ClicksDisabled := True;

[Delphi.Narium]

Zitat:

Zitat von freejay (Beitrag 1524148)

Also wenn ich im Code versuche, bei einer TCheckBox eine Property oder Methode mit "click" zu finden bekomme ich nur "OnClick" , kein "ClicksDisabled"...

Ist beim VorVorfahren von TCheckBox als Protected deklariert.

Delphi-Quellcode:

...
  TButtonControl = class(TWinControl)
  private
    FClicksDisabled: Boolean;
...
  protected
...
    property ClicksDisabled: Boolean read FClicksDisabled write FClicksDisabled;

...
  TCustomCheckBox = class(TButtonControl)
...
  TCheckBox = class(TCustomCheckBox)
...

Eigenschaft in 'nem Nachfahren veröffentlichen?

Delphi-Quellcode:

type
  TMyCheckBox = class(TCheckBox)
  published
    property ClicksDisabled: Boolean;
  end;

[himitsu]

Click ist nur Protected, also aus "deinem" Code auch nicht zugänglich.
Bei TButton dagegen wurde es nach Puplic verschoben, somit kann dort direkt aufgerufen werden.

[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

Delphi-Quellcode:

type THackedCheckBox = class(TCheckBox);

,
aber Einige haben sich angewöhnt es netter zu benennen

Delphi-Quellcode:

type TCheckBoxAccess = class(TCheckBox);

.
(das END ist optional, wenn ansonsten nichts verändert wird)

Es ginge auch ohne es Umzubennen

Delphi-Quellcode:

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... :lol:

[freejay]

Zitat:

Zitat von himitsu (Beitrag 1524155)

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

Done.

[Redeemer]

Sehr gut ist auch TComboBox. Das hat die Ereignisse OnSelect und OnClick. Beide sind komplett identisch. So gibt es kein Ereignis fürs Klicken in die ComboBox, dafür aber eins fürs Drücken der Pfeiltasten: OnClick.
Ebenfalls gut: TListView.Items.Add verhält sich komplett anders, je nach dem Wert von Checkboxes. Ist Checkboxes False, passiert schlicht nichts. Ist Checkboxes True, werden gleich drei Ereignisse ausgelöst.
Oder du klickst links auf das StateImage eines ListViews. Du erhältst einmal MouseDown und zweimal MouseUp, weil du das erste MouseUp bereits vorm Loslassen kriegst.

Ich habe euch mal meine gesammelten Worst-Ofs der Delphi-Logik angehängt.

[himitsu]

@Redeemer
Das abschließende #13#10 beim TStrings.Text ist eigentlich ein sLineBreak, bzw. ganz genau das TStrings.LineBreak.
Merkst du, wenn nicht für Windows kompiliert wird und die Unixoiden bloß ein #10 haben.

Und dafür gibt es auch schon eine Lösung: TStrings.TrailingLineBreak
[add] https://docwiki.embarcadero.com/Libr...ilingLineBreak