protected symbol

[trashcandesign]

Hi,

ich verwende ein TJvDBGrid zur Darstellung meiner Daten.
Jetzt wollte ich die Spalten zur Laufzeit neu sortieren und wollte dafür die Methode MoveColumn von TCustomGrid verwenden.
Diese Methode ist protected, aber soweit ich weiß sollte ich doch von abgeleiteten Klassen, und TJvDBGrid sollte von TDBGrid und das von TCustomGrid erben, darauf zugreifen können.

Wenn ich das allerdings versuche zum Laufen zu kriegen bekomme ich die Fehlermeldung:

Cannot access protected symbol TCustomGrid.MoveColumn

mein Aufruf:
GridName.MoveColumn(von, nach); Hab ich da jetzt was ganz triviales übersehen ?

[s-off]

Hallo,

so geht's:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    dbgrid1: TJvDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
 TMyGrid = class(TCustomGrid)
 end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure PimpMyCols(Grid: TDBGrid; FromC, ToC: Integer);
begin
  TMyGrid(grid).MoveColumn(FromC, ToC);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   PimpMyCols(dbgrid1, 1,3);
end;

[trashcandesign]

Danke, das hat funktioniert...