キャレットの点滅時間を変更する

キャレットの点滅時間の間隔を変更するには SetCaretBlinkTime APIを使用します。取得するには GetCaretBlinkTime APIを使用します。以下のサンプルは現在のキャレットの点滅間隔を倍にします。

■ キャレットの点滅時間を変更する例

procedure TForm1.Button1Click(Sender: TObject); begin SetCaretBlinkTime(GetCaretBlinkTime() div 2); end;