如何在TFram上放了一個dbedit元件，在DBEDIT上依其值來改變DEBDIT的顏色?? 試著在DBEDIt.ONCHANGE 時去給顏色，但會出現元件不存在的訊息，是否有其他 方法可完成 謝謝各位

在 OnChange 事件處理，應該是正確的。 可以用 function StringToColor(const S: string): TColor; 或是 function ColorToString(Color: TColor): string; 處理。

Dear wameng 若寫在dbedit元件的onchange即可以，thx 再請問可否寫在 dbedit的datafield 的event中呢?? 發表人 - danajn 於 2004/10/29 23:14:30

>再請問可否寫在 dbedit的datafield 的event中呢?? 當然也是可以的。 不然您將程式碼放上來，看看！

type   TDBEdit = class(DBCtrls.TDBEdit)     procedure DataChange(Sender: TObject);   end;   TFrmColorEdit = class(TFrame)     Label1: TLabel;     Color_DBedit: TDBEdit;     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure Color_DBeditChange(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    implementation    uses Color_Pick;    {$R *.dfm}    procedure TFrmColorEdit.Button1Click(Sender: TObject); begin   ColorPick(Color_DBedit); end;    //寫在這個event是ok的    procedure TFrmColorEdit.Color_DBeditChange(Sender: TObject); begin   with TDBEdit(Sender) do   if DataSource.DataSet.FieldByName(DataField).AsString<>''then    begin     Color:=DataSource.DataSet.FieldByName(DataField).AsInteger;     Font.Color:=Color;   end; end;    

  但寫在這個event 是無作用的 
{ TDBEdit }
procedure TDBEdit.DataChange(Sender: TObject);
begin
  if DataSource.DataSet.FieldByName(DataField).AsString<>'' then egin
    Color:=DataSource.DataSet.FieldByName(DataField).AsInteger;
    Font.Color:=Color;
  end;    end;

end. 麻煩 wameng 囉 謝謝

如果您要使用這個做法。

type
TDBEdit = class(DBCtrls.TDBEdit)
  procedure DataChange(Sender: TObject);
end;

請注意 DataChange 為私有的，使用繼承是無法 Override。 能夠覆寫主要看這函數字尾是否有 Override 或 virtual 語法。 因此應改為

type
  TDBEdit = class(DBCtrls.TDBEdit)
  protected
    procedure Change; override;
  end;

Procedure TDBEdit.Change;
begin
  inherited Change; { 繼承父元件的處理}
  ...
  { 加到這裡來 }
end;

發表人 - wameng 於 2004/10/30 14:35:38

謝謝 ^^