Entfernung zwischen zwei Pixelkoordinaten

[dominikkv]

das hier:
if Edit1.Text='' then Edit1.Text:='500'; try Timer1.Interval:=strtoint(edit1.Text) except end; solltest du anders lösen... zB im OnChange des Edits oder du spendierst noch nen Button bei dem du das änderst.
Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
  X, Y, entfernung: Integer; 
begin 
  Y := abs(PC001.Top - shape1.Top); 
  X := abs(PC001.left - shape1.left); 
  entfernung := min(round(250 * sqrt(X * X + Y * Y)), 65000); 

  SetMasterVolume(MasterVolumeControl, 65000 - entfernung); 
  lbPC001.Caption := IntToStr(65000 - entfernung);
end;