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

本例测试修改光标的设置闪烁速度, 注意这会影响到其他程序, 退出时应恢复到系统 默认的 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.