Na gut, vielleicht sollte ich noch kurz darauf eingehen. Ich war beim Vorbereiten des Tuts etwas voreifrig mit dem Posten
Wie bereits Eingangs erklärt, wollen wir die Text-darstellenden Komponenten dahingehend manipulieren, daß diese im Text jedes Vorkommen von "
[dp]" mit "
Delphi-PRAXiS" ersetzen. Dazu fangen wir einfach die Botschaft
WM_SETTEXT ab. Hier die injizierte Klasse.
Delphi-Quellcode:
type
TExtComponent =
class(TComponent)
private
procedure WMSetText(
var Msg: TWMSetText);
message WM_SETTEXT;
end;
{ TExtComponent }
procedure TExtComponent.WMSetText(
var Msg: TWMSetText);
var
TagPos: Integer;
Dummy:
String;
begin
// get the text
Dummy := Msg.Text;
// look for replacement tag
TagPos := AnsiPos('
[dp]', Dummy);
if TagPos > 0
then
begin
// at least one is found, lets change them!!!
repeat
Dummy := Copy(Dummy, 1, Pred(TagPos)) + '
Delphi-PRAXiS' + Copy(Dummy,
TagPos + 4, MaxInt);
TagPos := AnsiPos('
[dp]', Dummy);
until TagPos <= 0;
// save new text
Msg.Text := PAnsiChar(Dummy);
end;
// go on!
inherited;
end;
Damit diese Klasse auch genutzt wird und der Effekt sichtbar wird, müssen wir die Klasse noch über die obige Prozedur in die Originale Hierarchie einschieben. Das geschieht am besten während der Initialisierungsphase des Programmes. Nicht vergessen, am Ende sollten wir es besser wieder rückgängig machen
Delphi-Quellcode:
initialization
ReplaceParentClass(TControl, TExtComponent);
finalization
ReplaceParentClass(TControl, TComponent);
...
...