1. Du kannst auf das Canvas der Form zugreifen mit
Delphi-Quellcode:
If Assigned(AOwner) then
if (AOwner is TForm) then
TForm(AOwner).Canvas.LineTo ...
// Besser wäre noch statt TForm TWinControl zu verwenden.
If Assigned(AOwner) then
if (AOwner is TWinControl) then
TWinControl(AOwner).Canvas.LineTo ...
2. Dort wo das Ereignis ausgelöst werden soll
Delphi-Quellcode:
If Assigned(FEreignis) then
FEreignis;
// Besser statt TEreignis TNotifyEvent
// Dann aber
If Assigned(FEreignis) then
FEreignis(Self);
// Damit kannst Du im OnEreignis abfragen (Sender) welche Komponente das Ereignis ausgelöst hat.
// z.B. If Sender=LineControl2 then TueIrgendwas;