Polygon zeichenen und Quadrat ringsherumbasteln

Hi, ich will in Delphi ein Programm schreiben, bei em man per Eingabe mit der Maus(klicken) nach und nach Punkte für ein Polygon erstellen kann, welches im Anschluss auch gezeichnet wird. Um das Polygon wiederum soll zum Schluss ein achsenparalleles Quadrat entstehen mit kleinst möglichem Flächeninhalt.
Da ich im Prinzip garkeine Ahnung von Delphikommandos habe, wollte ich hier mal anfragen wie ich an die Sache ran gehen kann.
Grüße Atomis Hut

Hallo,

Du nimmst eine PaintBox (oder das Canvas des Formulars) und wertest das OnMouseUp-Ereignis aus (das gibt Dir die X/Y-Koordinate des Klicks). Mit den Funktionen MoveTo und LineTo kannst Du das Polygon zeichnen.
Während Du das zeichnest, merkst Du Dir die maximale und minimale X- und Y-Koordinate, die verwendet wird. Damit kannst du das MBR (Minimum Bounding Rectangle) zeichnen.

Gruß, Niels