Mouse Up eventinda click sayımı

[kofmaster]

(26-03-2021, Saat: 15:11)savasabd Adlı Kullanıcıdan Alıntı:

uses
 System.diagnostics, System.TimeSpan;

var
 clickCount: integer;
 sw: TStopwatch;

procedure TForm1.FormCreate(Sender: TObject);
begin
 clickCount := 0;
 sw := TStopwatch.Create;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Single);
var
 Second: double;
 Elapsed: TTimeSpan;

begin
 if Button = TMouseButton.mbLeft then
 begin
   inc(clickCount);
   if not sw.IsRunning then
     sw.Start;
        Elapsed := sw.Elapsed;
     Second := Elapsed.TotalMilliseconds;
   if clickCount > 3 then
   begin
     clickCount := 0;

     sw.Stop;
     sw.Reset;

     if Second < 1001 then // bir saniye ve aşağısında
       ShowMessage('Bir saniye veya altında üç defadan fazla  sol tıkladınız');

   end
   else
   begin
     if Second > 1000 then
     begin // timere gerek kalmadan hep bir saniye aralığını dikkate alır böylece
       clickCount := 1;//ilk defa basılmış kabul ediyoruz
       sw.Stop;
       sw.Reset;
     end;

   end;

eline emeğine sağlık