Gemeinsame OnClick - Behandlung

[Bernd Ua]

Zitat:

Ohne Pointer zu programmieren ist also wie Safersex, Bernd, und was sind dann CrackerClasses, Pfui

Crackerklasse = Seitensprung ??????

Zitat:

(obgleich Crackerclasses bedingt auch in D8 funktioneren sollen... *grummel*)

Dagegen hilft dann aber die neue Sichtbarkeit strictly protected in Delphi 8.

Zitat:

Ich habe schon Komponenten gesehen, die zwar von TControl erben, die Getter und Setter der Eigenschaft Caption jedoch nicht über TControl.GetText sondern über aggregierte Objekte implementiert worden sind.

Hmmmmhh - wie soll das gehen, wo doch GetText und SetText private sind ? Da hat doch wohl niemand eine Property selben Namens redeklariert, wo allgemein bekannt ist, dass Properties nicht polymorph sind ?

Aber du hast ja recht - safer programming ist ne Crakcer Class nicht - können wir uns dann auf diese Variante einigen

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Sender is TControl then
    TControl(Sender).SetTextBuf('Geht nich - gibbs nich');
end;

( sag jetzt nicht nein - sonst komme ich mit TWinControl und WM_SetText , oder noch besser EnumWindows ...<g>)

Bernd