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.

窗體文件:

object Form1: TForm1
　Left = 0
　Top = 0
　Caption = 'Form1'
　ClientHeight = 137
　ClientWidth = 298
　Color = clBtnFace
　Font.Charset = DEFAULT_CHARSET
　Font.Color = clWindowText
　Font.Height = -11
　Font.Name = 'Tahoma'
　Font.Style = []
　OldCreateOrder = False
　OnCreate = FormCreate
　OnDestroy = FormDestroy
　OnMouseUp = FormMouseUp
　PixelsPerInch = 96
　TextHeight = 13
　object RadioGroup1: TRadioGroup
　　Left = 160
　　Top = 8
　　Width = 130
　　Height = 113
　　Caption = 'RadioGroup1'
　　TabOrder = 0
　　OnClick = RadioGroup1Click
　end
end