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

made in programmersforum 7

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

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

2nd
Авг

Время между двумя щелчками мыши

Posted by micher under Delphi

KrockodilL

Надо посчитать время между двумя щелчками, GetDoubleClickTime выдает что-то невнятное.

Баламут

Вот примерчик. А функция GetDoubleClickTime возвращает максимальное время между двумя кликами в даблклик. А эта вещь устанавливается в системе (Панель управления -> Мышь…)



unit Unit2;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DateUtils;
type

  TForm2 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    procedure FormClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    t1: TTime;

    t2: TTime;

    isFirst: boolean;

    { Public declarations }

  end;
var

  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);

begin

  isFirst := true;

  Label1.Caption := '';

end;
procedure TForm2.FormClick(Sender: TObject);

begin

  if isFirst then

  begin

    t1 := Now;

    isFirst := false;

    exit;

  end

  else

  begin

    t2 := Now;

    isFirst := true;

    Label1.Caption :=  IntToStr(SecondsBetween(t2, t1));

  end;

end;
procedure TForm2.FormCreate(Sender: TObject);

begin

  isFirst := true;

end;

end.