Caption - procedure bei mehreren Captions benutzen

[roggoe]

Hallo,
ich habe auf einem Report ein Label-Feld stehen, dem ich über die Funktion ONPrint einen Captionwert zuweise.

procedure TRepFrm.vonTextPrint(Sender: TObject);
begin
   vonText.Caption := 'Hallo Welt';
   ....Der Text hier ist noch länger...
end;

Auf mehreren anderen Reports habe ich ebenfalls Labelfelder stehen, die bei ONPrint das gleiche ausführen wie oben beschrieben.

Jetzt kann ich für jeden dieser Labels den gleichen Text wieder schreiben.

Gibt es eine Möglichkeit die Procedure 'vonTextPrint' auch bei anderen zu verwenden. Nur heissen ja die Labels anders.
vonTextLB.caption :........
vonTextKER.caption :........

Kann ich irgendwie den Namen der aufrufenden Labels so in die funktion einbauen, das ich die Procedure mehrmals vewenden kann.

So ungefähr wie

procedure TRepFrm.vonTextKERPrint(Sender: TObject);
begin
   'Labelname'.Caption := 'Hallo Welt';
end;

Danke

[Elias Zurschmiede]

Du hast ja den Sender, den kannst du typecasten. Weiss nicht was auf deinem Report die Labels für eine Class haben aber mit einem normalen TLabel würde das folgendermassen funktionieren:

Code:

procedure TRepFrm.vonTextKERPrint(Sender: TObject);
begin
   (Sender as TLabel).Caption := 'Hallo Welt';
end;