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

[打酱油的无证程序猿]

设置Edit1 或 ComboBox1的属性
Enabled = False之后，字体变灰色了，


能不能把 Enabled = False之后 控件字体的灰色，改成其他颜色？（比如红色）

[DelphiTeacher]

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

[爱蹄子的羊头]

教你一个很简单的方法


在控件外面放一个 TPANEL
panel 的外观都调成 None


然后把这个 panel 的 enable 改成 false

这样 TLabel 同样是不能操作的,但是颜色不会变灰.

[爱蹄子的羊头]

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

[hongss]

千奇百怪的需求。。。

[DelphiTeacher]

[Quote=引用 8 楼 hongss 的回复:]

千奇百怪的需求。。。
[/Quote]
是啊

[bdmh]

建议你自己封装一个

[打酱油的无证程序猿]

楼上的版主大侠 帮我封装 一个 ComboBox控件好吗？谢谢啊。。。


俺真的不会啊，郁闷。。。。。。

[打酱油的无证程序猿]

大侠们，帮帮忙啊。。。。。

[打酱油的无证程序猿]

up，顶。。。。。

[DelphiTeacher]

[Quote=引用 6 楼 warrially 的回复:]
教你一个很简单的方法


在控件外面放一个 TPANEL
panel 的外观都调成 None


然后把这个 panel 的 enable 改成 false

这样 TLabel 同样是不能操作的,但是颜色不会变灰.
[/Quote]
绝！牛!