Einzelnen Beitrag anzeigen

Elvis

Registriert seit: 25. Nov 2005
Ort: München
1.909 Beiträge
 
Delphi 2010 Professional
 
#5

Re: Auf private-Variable aus abgeleiteter Klasse zugreifen

  Alt 12. Jul 2007, 10:12
Es gibt viele böse Wege um zu erreichen was du willst, und alle vertrauen darauf, dass Delphi nicht type safe ist...
Eine Pseudoklasse, mit den gleichen Feldern mindestens bis zum gewünschten FWindowHandle:
Delphi-Quellcode:
type
  TPseudoTimer = class(TComponent)
  public
    FInterval: Cardinal;
    FWindowHandle: HWND;
  end;

var
  windowHandle : HWND;
begin
  windowHandle := TPseudoTimer(deinTimer).FWindowHandle;
end;
Oder du weißt den Fieldoffset von FWindowHandle (bei D7 ist das 52):windowHandle := HWND(Pointer(Integer(deinTimer) + 52)^) Wem jetzt nicht markant übel wird, sollte sich dringend überlegen, ob er etwas als Programmierer taugt.
Robert Giesecke
I’m a great believer in “Occam’s Razor,” the principle which says:
“If you say something complicated, I’ll slit your throat.”
  Mit Zitat antworten Zitat