改变Edit的光标

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

    Edit是Windows的标准控件，它是一个系统范围窗口类，所以任何应用程序都能创建它。其实Edit本质上也是一个窗口，MS实现了它却不开放源代码，只暴露出一些接口给我们操作。Edit的光标（Caret）没有意外，就是通过CreateCaret，ShowCaret等API显示出来的。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, 8, 10);
    ShowCaret(Handle);
  end;
end;

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