Punkte per Click verbinden

[Markus_85]

Hallo zusammen,

ich habe mal eine kurze Frage. Und zwar erstelle ich auf einer TForm Punkte in einer Art Koordinatensystem und würde gerne jeden Punkt mit jedem auf Buttonclick durch Linien verbinden. Das Ganze aber unter der Bedingung, dass ich eine Mindestanzahl x von Punkten und eine Höchstzahl von y einhalte. Das müsste sich in einer If-Bedingung konstruieren lassen oder?

Kennt ihr so eine Konstruktion von Befehl oder könnt mir in der Richtung weiterhelfen?

Das wär klasse.

MfG Markus

[Klaus01]

Guten Abend,

speicher Dir die MouseClicks (bzw. deren Koordinaten) in einem Array of TPoint.

Ist die Anzahl der Einträge im Array größer als x und kleiner als y dann verbinde
die Punkte des Array mit Linien. Dazu kannst Du in der Hilfe mal nach LineTo und PenPos
suchen.

Grüße
Klaus

[Markus_85]

Okay das werde ich mal probieren. Weißt du vielleicht zufällig auch, wie ich per Button alle Punkte löschen könnte? Schuldige aber ich bin blutiger Anfänger. :(

[blackdrake]

Hallo.

Wenn du auf einer PaintBox arbeitest (dann wird der Inhalt beim Verdecken des Forms nicht gelöscht):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Lösche alles in der PaintBox
  paintbox1.Canvas.FillRect(paintbox1.Canvas.ClipRect);
end;

Und die Linien zeichnest du ja mit MoveTo (Stift bei x/y ansetzen) und LineTo (Stift zu x/y zeichnend ziehen).

Gruß
blackdrake