// Set example: procedure TForm1.Button1Click (Sender: TObject); begin // will reset after system start SetDoubleClickTime (1500); end; // Get example: procedure TForm1.Button2Click (Sender: TObject); begin ShowMessage (IntToStr ( GetDoubleClicktime);
Squiring: LZCX
