如何在Delphi TEdit中隐藏插入符号？

发布时间：2020-12-15 09:05:34 所属栏目：大数据来源：网络整理

导读：我想从Delphi中的TEdit控件中删除插入符号.我已经使组件Enabled：= False但是插入符号仍然出现. 我的问题是如何从禁用的TEdit控件中删除插入符号？解决方法我假设你的意思是TEdit控制. 解决方案是HideCaret功能,唯一的问题是在哪里调用它.下面的2个事件处

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

解决方法

我假设你的意思是TEdit控制.

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

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!