设置字体颜色的问题？

Question

Dbedit1.enabled:=false;
 Dbedit1.font.color:=clblue;
上面语句不管行，当enabled:=false;时我想设置Dbedit1中字体的颜色。
请教

Answer 1

因为你已经设置edit不能用了，它只能显示灰色，

Answer 2

我再补充一下，你是你已经把字体的颜色设好了，只是当dbedit1.enable:=false;时，系统自动显示字体为灰色的，从下面的程序可以看得很清楚，你找一个数据库连接以下就可运行了，先button1.click,然后button2.click,你可以看到一切
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables;type
  TForm1 = class(TForm)
    DBEdit1: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
dbedit1.Enabled:=false;
dbedit1.Font.Color:=clwhite;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
dbedit1.Enabled:=true;
end;end.

Answer 3

Enabled,后系统只是把Grid宠幸画了一便，你看delphi的原代码，找的后，你可以自己把wm_paint消息截获，写东西。

Answer 4

我需要在dbedit1.Enabled:=false;时设置颜色，是不是没有好的办法呢？

Answer 5

建議用試試: Dbedit1.ReadOnly:=true;
 Dbedit1.font.color:=clblue;