HideCaret(0); <br>或者<br>HideCaret(Memo1.Handle);<br><br>另外, 在Memo1的MouseDown, KeyUp和OnFocus事件中再加入此代码<br><br>The HideCaret function removes the caret from the screen. '<br>Hiding a caret does not destroy its current shape or invalidate <br>the insertion point. <br><br>BOOL HideCaret(<br> HWND hWnd // handle to the window with the caret <br> <br> <br>Parameters<br><br>hWnd<br><br>Identifies the window that owns the caret. If this parameter is NULL, <br>HideCaret searches the current task for the window that owns the caret. <br><br>