Wie private Setter-Methode überschreiben?

[BlueStarHH]

Hallo,

ich habe mir mit Txyz = class(TWinControl) eine neue Komponente erstellt. Diese hat auch einen Cursor, da das TWinControl auch einen Cursor hat. Nun muss ich in meiner Komponente darauf reagieren können, wenn mit xyz.Cursor := crHourGlass ein neuer Cursor zugeweisen wird. Wie kann ich dies bewerkstelligen? SetCursor (in der Oberklasse TComponent zu finden) ist ja privat und kann nicht überschrieben werden. Wer kann helfen? Danke!

[mkinzler]

Hast du es schon mit reintroduce versucht ?

[BlueStarHH]

Zitat von mkinzler:

Hast du es schon mit reintroduce versucht ?

reintroduce alleine bringt nichts, dann kommt die Meldung "Das private Symbol SetCursor wurde deklariert, aber nie verwendet." Bei override kommt: "Methode SetCursor nicht in Basisklasse gefunden". Logisch, weils ja privat ist.

[Muetze1]

Die Setter kannst du nicht überschreiben. Entweder bekommst du über die Quellen raus, ob er vllt. im Original Setter eine Nachricht absetzt auf die du reagieren kannst oder du definierst die Property in deiner abgeleiteten Klasse einfach neu: gleicher Name, eigener Getter/Setter

[hsg]

Du kannst aber die Methode im Privat-Bereich neu schreiben, nur inherited funktioniert leider nicht.
die entsprechenden Propertys musst du dementsprechend selber wieder einführen

Leider sind einige Interessante Methoden bei Komponenten im private-Bereich versteckt. Noch schlimmer ist es allerdings, dass in der VCL an vielen Stellen Klassen private-Methoden von anderen Klassen aus der Unit benutzen (z.B. TTable ist ganz besonders schlimm). Will man nun bestimmte Sachen dort überschreiben, hat man verloren

[BlueStarHH]

Zitat von Muetze1:

du definierst die Property in deiner abgeleiteten Klasse einfach neu: gleicher Name, eigener Getter/Setter

Wie greife ich dann aber auf die Cursor eigenschaft der Oberklasse zu? Wenn ich in meiner Componente dann sowas wie Cursor := bla stehen habe, ruft das ja meinen eigenen neuen Setter in meiner Komponente auf und der Cursor wird nie geändert. Wie kann ich dann die Property der Basiskalsse zu fassen bekommen?

[Elvis]

Zitat von BlueStarHH:

Wie greife ich dann aber auf die Cursor eigenschaft der Oberklasse zu?

inherited Cursor?
btw, das setzen eines Cursors in einem WinControl wird ganz sicherlich mit einer Nachricht verbunden sein.

[negaH]

Man kann bei einer published Property den Setter überschreiben, aber das geht nur mit Tricks eg. dem Patchen der RTTI der neuen Klasse. Ist also machbar aber nicht ganz "legal".

Ansonsten bleibt dir nur die Message wm_SetCursor und wm_NCHitTest abzufangen und dort zb. mit API.SetCursor(Screen.Cursors[Control.Cursor].Handle) selber deinen Cursor zu setzen.

Gruß Hagen

[BlueStarHH]

Zitat von Elvis:

Zitat von BlueStarHH:

Wie greife ich dann aber auf die Cursor eigenschaft der Oberklasse zu?

inherited Cursor?
btw, das setzen eines Cursors in einem WinControl wird ganz sicherlich mit einer Nachricht verbunden sein.

Ich habe es nun mit "inherited Cursor" und "du definierst die Property in deiner abgeleiteten Klasse einfach neu: gleicher Name, eigener Getter/Setter" gemacht. Danke!

[negaH]

Das funktioniert aber dann nur wenn im Source explizit der Cursor deiner Klasse angesprochen wird. So bald zb. die VCL den Cursor von deinen Vorfahren anspricht bekommst du nichts mehr davon mit. Probiere mal TWinControl(MeineKlassenInstance).Cursor := crXYZ aus.

Gruß Hagen