Punkte verbinden -> Linie löschen

**hirnstroem**

'loha Folks,

zwei Punkte werden miteinander wie folgt verbunden:

Delphi-Quellcode:

			with img_3d_verbindung do

begin

  Canvas.FillRect(ClientRect);

  Canvas.MoveTo(img_door_l.Top, (img_door_l.Left + img_door_l.Width));  //Startpunkt der Linie

  Canvas.LineTo (shp_3d_vertical.Left, shp_3d_vertical.Top);  //Endpunkt der Linie

  Canvas.Pen.Width := 1;

  Canvas.Brush.Style := bsClear;

  Canvas.Pen.Color := clRed;

end;

Nun habe ich das Problem, dass das oben genannte Ereignis relativ viele male durchlaufen wird und mir immer mehr Linien auf das Formular gezeichnet werden. Leider finde ich keine Möglichkeit, nur diejenige Linie anzuzeigen, welche momentan auch wirklich gebraucht wird.

Hat jemand eine Idee, wie die jeweils letzte Linie ausradiert werden könnte?

Grüsse
hirnstroem

Punkte verbinden -> Linie löschen

Punkte verbinden -> Linie löschen

Forumregeln