禁用TEdit字体颜色

Question

我有一个应用程序,其中一个TEdit应用程序运行时被禁用.经过一些计算后,它将被启用.我的要求是Font.Color将此禁用设置TEdit为Blue instaed of Gray(禁用字体颜色).

Answer 1

标准不支持此功能TEdit.您可以将编辑设置为ReadOnly而不是Disabled - 这样可以保留字体颜色,但用户无法更改编辑的值.即"禁用"编辑

Edit1.ReadOnly := True;
Edit1.Font.Color := clBlue;

并再次启用它

Edit1.ReadOnly := False;
Edit1.Font.Color := clWindowText;