Mega Code Archive

 

Categories / Delphi / System

 

How to getset the caret blink time

Title: How to get/set the caret blink time procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := Format('Caret blink time is: %d ms', [GetCaretBlinkTime]); end; procedure TForm1.Button2Click(Sender: TObject); begin // Set caret blink time to 2000ms SetCaretBlinkTime(2000); end;