1,184
社区成员
发帖
与我相关
我的任务
分享有关 RichText 的 Caret(条形光标）
用 GetCaretPos 可以取得它的左上角，但无法取得高度和宽度，最重要的是高度。
我想做一个带自动提示的 RichEdit，Help!
我想做一个带自动提示的 RichEdit，Help!
...全文
请发表友善的回复…
发表回复
Eastunfail 2003-06-14
- 打赏
- 举报
给你个例子，不过我是用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;
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;
