請教各位前輩 寫 DBGrid VCL問題? 如何為DBGrid.Column 加一個屬性 及 GetFocus時處理?? 還是那有想關的資料?? 是否能給點方向? 因為Column可多個就不知如何處理了 謝謝各前輩!!感謝....

jeffreck 你好:    同 ClassName 繼承, 參考看看:

type
  TColumn=class(DBGrids.TColumn)
  private
    FNewProp: boolean;
  published
    property NewProp: boolean read FNewProp write FNewProp default True;
  end;
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  if TColumn(DBGrid1.Columns[0]).NewProp then
    ShowMessage('New Property Add In.');
end;

發表人 - Mickey 於 2004/07/01 23:37:53

謝謝 Mickey 版主, 原來還可以這樣子作,太神了 但我把它寫成VCL 但沒看到新加的屬性?? 請教我那錯了

 
unit dbgrid1;    interface    uses
  SysUtils, Classes, Controls, Grids, DBGrids;    type
  TColumn=class(DBGrids.TColumn)
  private
    FNewProp: boolean;
            FJFAddNewEnabled :Boolean;
  published
    property NewProp: boolean read FNewProp write FNewProp default True;
       Property JFAddNewEnabled : Boolean Read FJFAddNewEnabled
                          Write FJFAddNewEnabled;
  end;      Tdbgrid1 = class(TDBGrid)
  private
    { Private declarations }      protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('JFControls', [Tdbgrid1]);
end;    end.    

謝謝前輩!!

Your modification will work in runtime, but not in design mode. If you want see it in IDE, you need to create a NEW TColumn type (e.g. TMyColumn) and make your TDBGrid1 using the new TMyColumn... well... the component/property editors.... not an easy job.