Punkte auf Bild

[himitsu]

Nimm eine Image-Komponente (TImage) in dein Form.
Lad' über OI/Eigenschaften/Picture ein Bild rein.
Und weis OI/Ereignisse/OnMouseDown folgende Procedure zu.

Delphi-Quellcode:

Type TForm1 = Class(TForm)
    Image1: TImage;
    Procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  Private
    Procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  End;

...

Procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  Var f: TextFile;
    MyShape: TShape; 

  Begin
    MyShape := TShape.Create(self); 
    With MyShape do Begin
      Parent := Image1;
      Left := X; 
      Top := Y; 
      Width := 1; 
      Height := 1;
      Pen.Color := clRed;
      OnMouseDown := ShapeMouseDown;
    End; 
    AssignFile(f, 'Dateiname.txt');
    If FileExists('Dateiname.txt') Then Append(f) Else Reset(f);
    Writeln(f, IntToStr(X) + ':' + IntToStr(Y));
    CloseFile(f);
  End;

Procedure TForm1.ShapeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  Begin
    ...
  End;

hoffe, jetzt stimmts...