Möchte Entfernung von 2 Punkten auf einem Bild berechnen.

[jfheins]

Delphi-Quellcode:

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  PunktA:TPoint;

{...}
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
DeltaX, DeltaY, Laenge: real;
begin
DeltaX = PunktA.X - X;
DeltaY = PunktA.Y - Y;

Laenge = Hypot(DeltaX, DeltaY);

showmessage(floattostr(laenge));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
PunktA.X:=15;
PunktA.Y:=15;
end;

So in der Art