如何改变光标形状？

[lxycsdn]

我们通常做软件时，输入编辑框的光标一般是一条件细竖线，看得不是清楚。我想改变了下象DOS下的Foxpro那种光标编辑形状（比较宽，不是细竖线，象块状，差不一个字符宽，看得比较眼）。由于我本人技术有限，没办法更改。我只能改形状，改后，却不能编辑。用鼠标点一下，又变回去（一打细竖线）。
请各大侠，帮我一下。
有不明白意思的，请通知一下。E-Mail：[e-mail]. QQ:99989653

[sxtdxvb]

你又没有改变 edit的 cursor属性。当然回变回去了！

[zhuminghua]

用CreateCursor和SetCursor吧

[postren]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
CreateCaret((Sender as TEdit).Handle, 0, 10, 10);
ShowCaret((Sender as TEdit).Handle);
end;

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
CreateCaret((Sender as TEdit).Handle, 0, 10, 10);
ShowCaret((Sender as TEdit).Handle);
end;