Paintbox

[H4ndy]

Hab ich ja total verschlafen:
Willkommen in der Delphi-PRAXiS


Dann musst dir überlegen, wie du mehrere Koordinaten speichern möchstest.
Einige Kandidaten wären da TStringList oder ein Array.

Ich würde das Array bevorzugen, denn dann könntest du z.b. machen:
var MeineKoordinaten: array [0..5] of TPoint; Somit hättest du ein Array mit 6 Elementen (#1 hat den Index 0, #6 den Index 5).
Dann könntest du dir einen Integer nehmen, welcher speichert welche Koordinate als
nächstes gefüllt wird.

Delphi-Quellcode:

// global
var
  MeineKoordinaten: array [0..5] of TPoint;
  AktuelleKoordinate: integer;

// im FormCreate:
  AktuelleKoordinate := 0;

procedure PaintBox.OnMouseUp(Sender: TObject; X,Y: integer);
begin
  // prüfen, ob noch Elemente ausstehen
  if AktuelleKoordinate <= 5 then begin
    // Koordinate speichern
    MeineKoordinate[AktuelleKoordinate].X := X;
    MeineKoordinate[AktuelleKoordinate].Y := Y;
    // Zeige auf nächstes Feld setzen
    inc(AktuelleKoordinate);
  end else begin
    // mit Koordinaten rechnen
    bla blubb
    // Koordinatenzeiger reset
    AktuelleKoordinate := 0;
  end;
end;

Das müsste eigentlich die Grundaspekte erklären.