如何改变RichEdit中的光标？

Question

当RichEdit有效时，会有一个一闪一闪的“I”型光标在闪烁，请问怎样才能改变它的形状，就象在UEdit32文本编辑器中十六进制编辑一样显示一个黑色小方块？
我在Memo中实现了这个功能，但同样的代码，在RichEdit控件中却不行，不知道是哦什么？特请教高手.
CreateCaret(Memo1.Handle, Image1.Picture.Bitmap.Handle, 10, 10);
Showcaret(Memo1.Handle);

Answer 1

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
CreateCaret(RichEdit1.Handle, Image1.Picture.Bitmap.Handle, 10, 10);
Showcaret(RichEdit1.Handle);
end;里加入如下代码