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;
Herhangi bir basit problem, hakkında yeterince toplantı yapılarak, çözümsüz hale getirilebilir.
https://play.google.com/store/apps/developer?id=ONGUN
https://play.google.com/store/apps/developer?id=ONGUN

