Delphi调用WinAPI: 输入光标相关的函数[2]

Delphi调用WinAPI: 输入光标相关的函数[2]2012-04-06 cnblogs 万一本例测试修改光标的设置闪烁速度, 注意这会影响到其他程序, 退出时应恢复到系统默认的 530 毫秒.

本例效果图:

代码文件:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;
type
 TForm1 = class（TForm）
  RadioGroup1: TRadioGroup;
  procedure FormCreate（Sender: TObject）;
  procedure FormMouseUp（Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer）;
  procedure RadioGroup1Click（Sender: TObject）;
  procedure FormDestroy（Sender: TObject）;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate（Sender: TObject）;
begin
 RadioGroup1.Caption := "光标闪烁速度（毫秒）";
 RadioGroup1.Items.CommaText := "1000,500,200";
end;
procedure TForm1.FormDestroy（Sender: TObject）;
begin
 SetCaretBlinkTime（530）;
end;
procedure TForm1.FormMouseUp（Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer）;
begin
 DestroyCaret;
 CreateCaret（Handle, 0, 0, 20）;
 SetCaretPos（X,Y）;
 ShowCaret（Handle）;
end;
procedure TForm1.RadioGroup1Click（Sender: TObject）;
var
 ms: Cardinal;
begin
 ms := StrToIntDef（RadioGroup1.Items[RadioGroup1.ItemIndex], 530）;
 SetCaretBlinkTime（ms）;
end;
end.