ActiveDelphi

[flabed9]

Eu estou fazendo assim, mas não está funcionando:

procedure TForm1.Timer1Timer(Sender: TObject);
Var D: Real;
begin
D:= sqrt(sqr((Button1.Left - Button1.Top)) + sqr((Button2.Left - Button2.Top)));
Button3.Caption:= FloatToStr(D);
end;

Eu coloquei os dois botões juntos no mesmo lugar, mas a distância mostrada não fica como 0, fica um número maior que 100.

[flabed9]

Consegui arrumar, eu tinha feito errado.

procedure TForm1.Timer1Timer(Sender: TObject);
Var D: Real;
begin
D:= sqrt(sqr((Button1.Left - Button2.Left)) + sqr((Button1.Top - Button2.Top)));
Button3.Caption:= FloatToStr(D);
end;