public property überschreibbar?

[Gruber_Hans_12345]

Hi,

ich möchte ein public property overriden, und zwar hat ein Form ja das Property ModalResult, das per read und write direkt auf fModalResult zugreift.
Nun möchte ich in meinem abgeleiteten Formular diese property überschreiben, so das meine Setter procedure aufgerufen wird.
Das sollte auch dann funktionieren, wenn auf das TForm zugegriffen wird (also zb.: ein Button, der ModalResult gesetzt hat das ModalResult des Formulares setzt)

habe ich da irgendeine Möglichkeit (mit normalen OOP scheint es ja nicht zu funktionieren, aber es darf auch gerne eine etwas dirty funktion werden )

[mkinzler]

Eine Propety kann man problemlos überschreiben.

[SirThornberry]

Zitat von mkinzler:

Eine Propety kann man problemlos überschreiben.

falsch! Ein Property kann man überdecken aber nicht überschreiben. Sobald man auf eine Vorfahrenklasse castet wird ist das überdecken ausgehebelt. Wenn also ein Button per "TForm(GetParentForm(Self)).ModalResult" auf Modalresult zugreift wird immer der Zugriff verwendet wie er in TForm implementiert ist.

[Gruber_Hans_12345]

ja schon, aber leider funkt es halt nur nicht.

zumindest nicht, wenn auch die VCL auf dieses property zugreift, die verwendet dann immer nur das alte property und nicht mein neues property oder übersehe ich hier was?

@SirThornberry: genau das problem habe ich, gibt es hier irgend eine möglichkeit das zu umgehen?

bei procedure kann ich ja den einsprungspunkt der Klasse auf eine ander funktion umbiegen, aber wie geht das bei reinen properties?

[mkinzler]

Wie hast du die property überschrieben?

[SirThornberry]

du übersiehst nichts, es ist schlichtweg nicht möglich wenn es nicht vorgesehen ist. Properties welche "überschreibbar" implementiert sind haben eine Methode welche virtuell ist so das diese überschrieben werden kann. Ist dies nicht der Fall verhält es sich wie bei Methoden welche nicht als virtuell oder abstract decleriert sind. Diese können nur verdeckt aber nicht überschrieben werden.

@mkinzler: Wie kann man denn ein Property überschreiben? oder ist das seit Delphi2007 möglich? Bis dahin wurde es auf jeden Fall seitens der Programmiersprache nicht unterstützt.

[Gruber_Hans_12345]

so hab ichs "überladen"

Delphi-Quellcode:

public
    property ModalResult        : TModalResult read GetModalResult write SetModalResult;
end;

meine Getter und Setter werden zwar aus meinen eigenen Funktionen aufgerufen (die, die in der klasse sind, oder die direkt auf meine klasse zugreifen, aber nicht von der VCL)

    JumpFromCode( GetNativeAddr(@TFormWriter.WriteProperties), @TFormWriter.WriteProperties_Fix, @fWriter_WriteProperty_Inst); so kann ich ja procedure einer klasse überschrieben, die nicht mit virtual gekennzeichnet sind, kann man so ähnlich auch ein property überschreiben?

[SirThornberry]

so überschreibst du eine Methode aber nicht sondern ersetzt diese sozusagen. Wenn eine weitere Klasse auf die gleiche Art die Methode "überschreiben" würde, würde ein riesen durcheinander entstehen weil jeder das des anderen ersetzt. Ein richtiges überschreiben geht nur wenn es vom compiler unterstützt wird und das ist bei properties nicht der fall.

[Gruber_Hans_12345]

das ist mir schon klar, das es kein richtiges überschreiben ist,
aber mir würde hier ein ersetzen auch schon helfen.

Ich möchte einfach eine Getter/Setter function, die beim Modalresult aufgerufen wird - es sollte entweder dsa property selbst irgendwie ersetzt werden, oder die Getter/Setter einträge.