Linien Komponente

[Sunlight7]

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;