DBGrid mit verschiebbaren Zeilen

[marsupilami79]

Hallo,

ich brauche für eine Anwendung ein DBGrid, in dem ich die Datenzeilen vom User verschieben lassen kann. Da ich im Netz nix derartiges gefunden habe dachte ich ok -> selber machen. Sollte nicht so schwierig sein, da die dafür nötigen Sachen schon in TCustomGrid drinnen sind.
Das Problem ist, daß ich das Verschieben erstmal erlauben müßte in TCustomGrid.Options, aber im TCustomDBGrid Options mit einer neuen Eigenschft überschrieben / verdeckt wird. Also hab ich versucht, die unter anderem Namen wieder sichtbar zu machen:

Delphi-Quellcode:

TEDBGrid = class(TCustomDBGrid)
  protected
    procedure SetGridOptions(Options: TGridOptions);
    function GetGridOptions(): TGridOptions;
  ...
  published
    property GridOptions: TGridOptions read GetGridOptions write SetGridOptions;
  ...
  end;

...

procedure TEDBGrid.SetGridOptions(Options: TGridOptions);
begin
  TCustomGrid(Self).Options := Options;
end;

function TEDBGrid.GetGridOptions(): TGridOptions;
begin
  Result := TCustomGrid(Self).Options;
end;

Aber bei dem Typecast bringt mir Delphi die Fehlermeldung "[Fehler] Dbgrid.pas(281): Undefinierter Bezeichner: 'Options'". Sollte die Kindklasse aber nicht Zugriff auf die protected-Eigenschften des vorfahren haben? Und an die Methode / Eigenschft ranzukommen, die in TCustomGrid verwendet wird, erscheint mir noch schwieriger, da die beide als private deklariert sind.
Hat jemand eine Idee?

[Union]

Du hast die Options in Deiner eigenen Klasse nicht deklariert.

[marsupilami79]

Ja, weil TCustomDBGrid schon eine Eigenschaft Options hat, die ich nicht wieder verstecken möchte.

[Union]

Aber Du kannst doch kein Feld einer Klasse ansprechen, in der dieses gar nicht vorhanden ist. Du bräuchtest dann sowohl Options mit inherited und Deine neuen Gridoptions.

[marsupilami79]

Aber Options ist ja sowohl in TCustomGrid vorhanden als auch in TCustomDBGrid. Nur das das TCustomDBGrid.Options <> TCustomGrid.Options. Und die TCustomGrid.Options will ich jetzt unter dem Namen GridOptions verfügbar machen, damit ich auf beide Zugreifen kann.

[Union]

Nur ist TGridOptions nicht kompatibel zu TDbGridOptions, die Klasse von der Du erbst.

[marsupilami79]

Jup. Aber TCustomDBGrid ist ein direkter Nachfahr von TCustomGrid, in dem Options mit dem Typ TGridOptions deklariert ist. TCustomDBGrid führt dann Options erneut ein, mit dem Typ TDBGridOptions.

Die Vererbungslinie sieht ja so aus:
TCustomGrid -> TCustomDBGrid -> TDBGrid -> TEDBGrid

Und wieso kann ich als TEDBGrid als Nachfahr von TCustomGrid nicht auf TCustomGrid.Options zugreifen? Oder ist die Notation TCustomGrid(self).Options nicht die richtige dafür? Wenn ja, wie dann?

[omata]

Moin,

ich gebe zu, ich habe nie mit Delphi 6 gearbeitet.

Aber unter Delphi 7 ist das DBGrid standartmäßig so eingestellt, dass man die Spalten mit der Maus ziehen kann.

Wurde das von Delphi 6 -> Delphi7 geändert ?

MfG
Thorsten

[marsupilami79]

Nein, das wurde nicht geändert. Ich möchte aber auch nicht die Spalten sondern die Zeilen verschieben

[omata]

Oh, wer lesen kann ist klar im Vorteil. Sorry