Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

6th
Окт

Как расчитать время между нажатием и отпусканием кнопки мыши?

Posted by Chas under Пост-обзор

var  time1, time2, time3: TTime; //Глобальные
procedure TForm1.RzBitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  time1 := Time;
end;
procedure TForm1.RzBitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var h, m, s, ms: Word;
  st: string;
  d: Double;
begin                           
  time2 := Time;
  time3 := time2 – time1;
  DecodeTime(time3, h, m, s, ms);
  st := IntToStr(s) + ‘.’ + IntToStr(ms);
  d := RoundTo(StrToFloat(st), -1);
  label1.Caption := FloatToStr(d);
end;