如何在Delphi的TEdit控件中巧妙地隐藏那根令人瞩目的插入符号?
- 内容介绍
- 文章标签
- 相关推荐
本文共计154个文字,预计阅读时间需要1分钟。
我想从Delphi中的TEdit控件中删除插入符号。我已经使用组件的Enabled属性设置为False,但插入符号仍然出现。我的问题是,如何从不可用的TEdit控件中删除插入符号?我假设你的意思是TEdit控件的控制。解决方案是:设置TEdit控件的ReadOnly属性为True。
我想从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;
本文共计154个文字,预计阅读时间需要1分钟。
我想从Delphi中的TEdit控件中删除插入符号。我已经使用组件的Enabled属性设置为False,但插入符号仍然出现。我的问题是,如何从不可用的TEdit控件中删除插入符号?我假设你的意思是TEdit控件的控制。解决方案是:设置TEdit控件的ReadOnly属性为True。
我想从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;

