delphi 改变闪动光标

标签：ar   for   sp   on   c   r   bs   tt   ca   

delphi 改变闪动光标

// 不同风格的光标
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
CreateCaret(Edit1.Handle, 0, 10, 4);
ShowCaret(Edit1.Handle);
end;// 用图像做光标
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
CreateCaret(Memo1.Handle, Image1.Picture.Bitmap.Handle, 0, 0);
ShowCaret(Memo1.Handle);
end;

delphi 改变闪动光标

标签：ar   for   sp   on   c   r   bs   tt   ca   

原文地址：http://www.cnblogs.com/honeynm/p/3976486.html