如何在Delphi TEdit中隐藏插入符号？ [英] How to hide caret in Delphi TEdit?

问题描述

我想从Delphi中的TEdit控件中删除插入符号。我已经使组件 Enabled：= False ，但是插入符号仍然出现。
我的问题是如何从禁用的TEdit控件中删除插入符号？

I want to remove the caret from a TEdit control in Delphi. I have made the component Enabled := False but the caret still appears. My question is how to remove the caret from a disabled TEdit control?

推荐答案

我假设您的意思是 TEdit 控件。

I assume that you mean TEdit control.

解决方案是 HideCaret 函数，唯一问题是在哪里调用它。下面的2个事件处理程序对我来说很好用：

The solution is HideCaret function, the only problem is where to call it. The 2 event handlers below worked fine for me:

procedure TForm18.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  HideCaret(Edit1.Handle);
end;

procedure TForm18.Edit1MouseEnter(Sender: TObject);
begin
  HideCaret(Edit1.Handle);
end;

这篇关于如何在Delphi TEdit中隐藏插入符号？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！