SetText überschreiben?

[marvin.maybe]

Hallo,

von TLabel leite ich meine eigene Label-Klasse ab, bei der ich etwas spezielles tun möchte, wenn dem Property Caption ein Wert zugewiesen wird. Also dachte ich mir einfach die Methode SetText zu überschreiben. Leider finde ich nirgendwo eine der Doku diese Methode und der Compiler meckert, dass meine Methode anders definiert wäre...

Ein Workaround für mein eigentliches Problem habe ich gefunden aber grundsätzlich würde mich interessieren, wo man in solchen Fällen am besten nachschaut. Gibt es irgendwo die Source der Interfaces?

Gruß, Marvin.

[Luckie]

Zeig mal Code, wie du es versucht hast. Die Klassen Deklaration und die Implementierung.

[neolithos]

Wenn du einen anderen Text darstellen möchtest
Überschreib:

    function GetLabelText: string; override;

[Luckie]

Das wird wohl die read Property sein.

[neolithos]

Nicht ganz!

GetLabelText wird in der Paint Methode gerufen!

[SirThornberry]

überschreib doch einfach das property caption...

GetLabelText wird in der Paint Methode gerufen = Read

denn wenn ich auf die canvas male muss ich ja nur die aktuelle caption lesen und nicht neu setzen..

[neolithos]

GetLabelText ist deshalb nicht die Read-Property, weil es den Caption-Text anpasst, dazu kann er gelesen werden. Ich könnte aber auch etwas ganz anderes wie in der Caption Property steht zurückgeben!

Caption wurde übrigens von TControl geerbt. Und kann über die Nachrichten WM_GETTEXT (read) und WM_SETTEXT (write) beeinflusst werden.

[SirThornberry]

ähm, für mich ist "function GetLabelText: string" eindeutig ein Readproperty da der funktion nix übergeben wird und als result etwas zurückgegeben. Anhand der Funktion kann man die Caption nicht ändern nur "falsch" zurückgeben. Der Wert der gesetzt wird wenn ich "caption := 'xyz';" aufrufe wird auf keinen fall durch GetLabelText geändert außer die Methode wurde bereits geändert, im orginalzustand (Delphiauslieferung) ist es ein höchstwahrscheinlich das read-property von Caption

[neolithos]

Nochmal falls es nicht deutlich war:

Caption-Eigenschaft wird gesetzt und gelesen über die Nachrichten

Code:

[b]read[/b] WM_GETTEXT
   wParam = BufSize Integer
   lParam = Buffer PChar
   Result = Länge des Textes

[b]read[/b] WM_GETTEXTLENGTH
   wParam = 0
   lParam = 0
   Result = Länge des Textes

[b]write[/b] WM_SETTEXT
   wParam = 0
   lParam = Buffer PChar

Damit sollte die Frage eigentlich beantwortet sein

GetLabelText gibt zwar Std.-mäßig die Caption zurück, kann sie aber auch modifiziert zurückgeben.

Nochmal klar:

per Def. GetLabelText <> Caption nur im Std. GetLabelText = Caption

[marvin.maybe]

Es geht mir nicht um GetText. Meine Operation soll durchgeführt (der neue Text wird analysiert und damit werden spezielle Datenstrukturen gefüllt, die ich später brauche) werden , wenn neuer Text dem Property Caption zugewiesen wird. In der Deklaration vom property TCustomLabel.Caption wird laut Doku die SetText Methode verwendet. Diese möchte ich überschreiben, was mir nicht gelingt, da ich die Deklaration nicht kenne (in der Doku habe ich nichts gefunden).
Vielleicht ist es ein Fehler in der Doku: Entweder wird beim Schreiben des Property Caption nicht die Methode SetText aufgerufen oder SetText wurde in der Doku vergessen?

(Ich habe mit einem Delphi 8 .Net herumgespielt)

Gruß, Marvin.