Получить или установить время мерцания каретки

Советы » Мышка и Курсор » Получить или установить время мерцания каретки

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com