能不能去掉TEdit控件中的输入光标，我的Edit在只读状态下！

Question

可以，当edit得到焦点时把焦点移交给其他控件，比如：procedure TForm1.Edit1Enter(Sender: TObject);
begin
  button1.SetFocus;
end;达到要求了吗？

Answer 1

有个 readonly 属性,设置 true 即可.

Answer 2

就算设置成ReadOnly，焦点还是能移到Edit内的，除非Enabled等于False

Answer 3

你是要在EDIT得到焦点是也不要光标吗？

Answer 4

to armadawang(wjq): 是呀！　

Answer 5

用HideCaret这个API吧，真正的解决之道！The HideCaret function removes the caret from the screen. Hiding a caret does not destroy its current shape or invalidate the insertion point. BOOL HideCaret(    HWND hWnd  // handle to the window with the caret 
   );
 ParametershWndIdentifies the window that owns the caret. If this parameter is NULL, HideCaret searches the current task for the window that owns the caret. 

Answer 6

将edit1.enabled:=false;就可以了