Unterformular beeinflussen

[lzuser]

Hauptformular
mit
procedure Ausgabe(Canvas:TCanvas);
begin ... (Das ändert sich von Programm zu Programm) ... end;

Unterformular zur Ausgabe
procedure TUnterformular.PaintboxPaint(Sender: TObject);
begin ... Ausgabe(Paintbox.Canvas); ... end;

funktioniert, wenn ich im Unterformular uses Hauptformular einbinde.
Ich möchte aber das fertige Unterformular nicht mehr "anfassen".
und es trotzdem für verschiedene Hauptformulare nutzen, in denen
ich nur eine jeweils passende Prozedur Ausgabe schreibe.

Wie kann man vom Hauptformular in ein Paint-Ereignis des Unterformulars
so wie oben skizziert eingreifen? Die Procedure Ausgabe verändert sich dabei wie gesagt.

[Socke]

Quick and Dirty: Du fügst das Unterformular bei der Uses-Klausel des Hauptformulars hinzu. Das Hauptformular registriert dann im OnCreate o.ä. den Ereignisbehandler.

Code: Alles auswählen

FUnterformular.Paintbox.OnPaint := @Ausgabe

Richtig OOP-gekapselt besitzt das Unterformular eine entsprechende Eigenschaft, in dem das Hauptformular einen Ereignisbehandler ablegt.