Ah Danke.
Folgendes Problem habe ich nun, es geht ums optische.
Ich kann auf dem Canvas viele Punkte setzen und jeder wird mit jedem verbunden, nach einer Weile wirds zu unübersichtlich und die Koordinaten jedes Punktes
wird von den ganzen Strichen überdeckt. Gibt es so ne Art "OnTop" funktion/Befehl??
Delphi-Quellcode:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Punkt : PTTPoint;
begin
PanelPaint.AddPoint( x,y );
New( Punkt );
Punkt^.X := x;
Punkt^.Y := y;
font.Color := clWhite;
TreeView1.Items.AddChildObjectFirst( nil,Format( 'X=%d, Y=%d',[x,y] ),Punkt );
Anzahl_Punkte:=Anzahl_Punkte+1;
if (Anzahl_Punkte>2) and (Anzahl_Punkte<11) then
Button1.Enabled:=true
else
Button1.Enabled:=false;
if (Anzahl_Punkte>9) then begin (PanelPaint.Enabled := false);
if (Anzahl_Punkte>9) then showmessage
('Maximale Anzahl an Punkte erreicht');
end;
end;