'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