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

Question

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

Answer 1

我认为你的意思是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;