[Tips]设置双击时间

_// 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));
end ;

整理：lzcx