Einzelnen Beitrag anzeigen

Bernd Ua

Registriert seit: 10. Nov 2003
Ort: Lindhorst
87 Beiträge
 
Delphi 11 Alexandria
 
#12

Re: Gemeinsame OnClick - Behandlung

  Alt 5. Dez 2003, 10:36
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
Bernd Ua
  Mit Zitat antworten Zitat