关于在delphi中CreateCaret,ShowCaret,SetCaretPos的API函数的使用????????

Question

关于在delphi中CreateCaret,ShowCaret,SetCaretPos的API函数的使用????????  在VC中使用下面语句可以在窗体中实现插字符  void CtestView::OnInitialUpdate()   
{  
CView::OnInitialUpdate();  // TODO: Add your specialized code here and/or call the base class  
CreateSolidCaret(1,48);  
ShowCaret();  
    CPoint point(12,12);  
SetCaretPos(point);  
         
}  ----------------------------  
在delphi中,已经引用了shellapi  
var  
 point:tpoint;  
 bitmap1:HBITMAP;  
begin          CreateCaret(form1.Handle,bitmap,1,48);  ShowCaret(form1.Handle);  
SetCaretPos(10,30);  
但上面的代码不能实现插字符  

Answer 1

我的QQ是 27541407 ,各位可以发去我的QQ

Answer 2

bitmap只是一个空的变量,因为这个变量我不会用,CreateCaret也不会,你知道是什么问题吗