有关 RichText 的 Caret(条形光标）

[inshua]

用 GetCaretPos 可以取得它的左上角，但无法取得高度和宽度，最重要的是高度。

我想做一个带自动提示的 RichEdit，Help!

[Eastunfail]

给你个例子，不过我是用TMemo+TListBox实现的
var t:TEXTMETRIC;MemoHdc:HDC;
begin
MemoHDC:=GetDC(Memo1.Handle);//得到Memo1的设备上下文句柄
{得到Memo1的字体信息}
GetTextMetrics(MemoHDC,t);
//计算新坐标.+10和+20是为了防止把当前的Caret遮住了
ListBox1.Left :=Memo1.Left+Memo1.CaretPos.X *t.tmAveCharWidth +10;
ListBox1.top:=Memo1.Top+Memo1.CaretPos.Y *t.tmHeight +20 ;
ReleaseDC(MemoHDC,Memo1.Handle );//用完了要释放调
end;