hi
im MouseDown vom button in einer globalen variable die zeit speichern und dann im MouseUp die differenz bilden, dann hast du die millisekunden
Delphi-Quellcode:
var zeit:integer;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
zeit:=GetTickCount;
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
showmessage(inttostr(GetTickCount-zeit));
end;