如何修改控件颜色？谢谢各位大佬！

Question

设置Edit1 或 ComboBox1的属性
Enabled = False之后，字体变灰色了，
能不能把 Enabled = False之后 控件字体的灰色，改成其他颜色？（比如红色）

Answer 1

楼上的版主大侠 帮我封装 一个  ComboBox控件好吗？谢谢啊
俺真的不会啊，郁闷

Answer 2

貌似直接简单的方法没有,
但实现这个的思路有两个,
第一个比较简单,封装TEdit和TCOMBOX控件,
在禁用的时候把一个红色的Label放在上面就可以了
第二个比较繁重一点,那就是自定义控件的,
在禁用的时候自已绘制了
你按第一个思路做吧...

Answer 3

教你一个很简单的方法
在控件外面放一个  TPANEL 
panel 的外观都调成 None
然后把这个 panel 的  enable  改成 false这样  TLabel 同样是不能操作的,但是颜色不会变灰.

Answer 4

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 422
  ClientWidth = 644
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object pnl1: TPanel
    Left = 47
    Top = 54
    Width = 240
    Height = 168
    BevelOuter = bvNone
    Enabled = False
    TabOrder = 0
    object edt1: TEdit
      Left = 31
      Top = 29
      Width = 122
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = 'edt1'
    end
    object cbb1: TComboBox
      Left = 31
      Top = 91
      Width = 149
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = 'cbb1'
    end
  end
end