改变Edit的光标

    看着Edit的光标,是不是觉得了无生趣,想不想换个形状来玩玩,其实很简单,且听我道来。

    EditWindows的标准控件,它是一个系统范围窗口类,所以任何应用程序都能创建它。其实Edit本质上也是一个窗口,MS实现了它却不开放源代码,只暴露出一些接口给我们操作。Edit的光标(Caret)没有意外,就是通过CreateCaretShowCaretAPI显示出来的。Edit似乎是在得到焦点时创建并显示Caret,在失去焦点时消毁Caret,此处我们只需在SetFocus消息中创建Caret即可,看如下代码:

type
  TwdEdit = class(TEdit)
  protected
    procedure EditSetFocus(var message: TMessage); message WM_SETFOCUS;
  end;

procedure TwdEdit.EditSetFocus(var message: TMessage);
var
  H: HBITMAP;
begin
  inherited;
  if DestroyCaret then
  begin
    H := LoadBitmap(
0, MAKEINTRESOURCE(OBM_RGARROW));
    if H = 
0 then Exit;
    CreateCaret(Handle, H, 
810);
    ShowCaret(Handle);
  end;
end;

    在你的窗口中创建这个控件,看看效果如何,你只需修改LoadBitmap的参数即可得到你想要的光标,试试吧。

 

你可能感兴趣的:(windows,api,Class)