Auf private-Variable aus abgeleiteter Klasse zugreifen

[sirius]

Kann man auf diese private xyz Variable irgendwie aus T2 zugreifen?

Delphi-Quellcode:

unit unit1

type T1=class
       private
         xyz:integer;
end;

//...
unit unit2

uses unit1;

type T2=class(T1)
       //...

      property a:integer read yxz; 
end;

Oder einfach nur generell auf xyz zugreifen wenn ich Methoden in T2 implementiere.

Warum? Ich würde gern FWindowHandle aus TTimer wissen.

[Bernhard Geyer]

Nein. Private Variablen sind nur für abgeleitete Klassen sichtbar wenn diese in der gleichen Unit liegen!

[sirius]

Zitat:

Zitat von Bernhard Geyer

Nein. Private Variablen sind nur für abgeleitete Klassen sichtbar wenn diese in der gleichen Unit liegen!

Danke! Hab ich mir fast gedacht. Ich hatte noch die Hoffnung, dass ich etwas übersehen habe.
Ich habe jetzt den Source von TTimer in meine Unit kopiert.
Wieso haben die mir bloß verboten auf FwindowHandle zuzugreifen :gruebel:?

[SirThornberry]

weil dich das Handle gar nicht interessieren sollte bei dem Timer. Denn der Timer stellt als Funktionalität das wiederholte Aufrufen einer Callback-Methode bereit. Und wenn du diese Funktionalität erweitern willst sollte es nicht nötig sein das Handle zu erfahren.

[Elvis]

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):

Delphi-Quellcode:

windowHandle := HWND(Pointer(Integer(deinTimer) + 52)^)

Wem jetzt nicht markant übel wird, sollte sich dringend überlegen, ob er etwas als Programmierer taugt. :mrgreen:

[SirThornberry]

@Elvis: Ein guter Ansatz aber bitte nicht zu Integer casten sondern Cardinal. Ansonsten kannst du pech haben und dein cast zu signed schlägt ins Negative womit dann überhaupt nix stimmt.

[Elvis]

Zitat:

Zitat von SirThornberry

@Elvis: Ein guter Ansatz aber bitte nicht zu Integer casten sondern Cardinal. Ansonsten kannst du pech haben und dein cast zu signed schlägt ins Negative womit dann überhaupt nix stimmt.

Ups, jo das ist natürlich wahr. "Pointer" ist ja kein Integer, sondern ein Cardinal. Bin ja auch eigentlich ein verweichlichter .Net-Dev und kein nativer Bitschubser. :mrgreen:

[sirius]

@sir
Mich hat es letzenendes gar nicht in der abgeleiteten Klasse interessiert sondern in dem Modul/Klasse in der ich TTimer verwende.
Da das ganze in einem eigenen Thread ist, musste ich für den Timer eine kleine ProcessMessages-Methode schreiben.
Und dabei wandele ich lieber auf sicherem Pfad und picke mir nur die Messages an meinem Timer aus der Message-Queue.

@elvis
Ja, der ist nicht schlecht. :mrgreen: Aber copy&paste hats auch gemacht. Und da konnte ich gleich die ExtCtrls rausschmeissen und noch ein paar kleine Änderungen direkt in der Klasse vornehmen.