DBGrid, Spalten fixieren

[Mario]

Ich haben ein DBGrid auf meiner Datenbank liegen, ReadOnly, RowSelect, AlwaysShowSelection.

Ich möchte gern die ersten vier Spalten fixieren, dass diese halt beim rechts rüber scrollen stehen bleiben. Weiß jemand, wie ich sowas umsetzen könnte?

Momentan habe ich dafür zwei Grids auf der Datenmenge, aber ich warte richtig auf den Tag, wo beide Dinger mal nicht mehr sauber in einer Zeile laufen.

[Sourcemaker]

JvDBGrid von Jedi hat die Eigenschaft FixedCols.

Grüße

Frank

[Stevie]

Delphi-Quellcode:

TStringGrid(DbGrid1).FixedCols := 4;

[Mario]

@Stevie: Leider wird der Bereich, welcher fixed ist, nur unregelmäßig gezeichnet und bleibt oft leer, gerade beim Scroll. Schade, sonst wäre dies mir die liebst Lösung.

@Frank: Das Grid werde ich morgen mal probieren. Danke.

[Stevie]

Zitat:

Zitat von Mario

@Stevie: Leider wird der Bereich, welcher fixed ist, nur unregelmäßig gezeichnet und bleibt oft leer, gerade beim Scroll. Schade, sonst wäre dies mir die liebst Lösung.

Au, das sieht ja echt etwas übel aus. Ich hatte den Tip mal beim SwissDelphiCenter gesehen, aber nicht ausprobiert. Schade!

[MaBuSE]

Zitat:

Zitat von Stevie

Delphi-Quellcode:

TStringGrid(DbGrid1).FixedCols := 4;

Implementiert ist FixedCols in TCustomGrid.

Delphi-Quellcode:

  TCustomGrid = class(TCustomControl)
  ...
  protected
    property FixedCols: Integer read FFixedCols write SetFixedCols default 1;
  ...

Du kannst also ein eigenes DBGrid ableiten und diese Eigenschaft sichtbar machen:
(getestet habe ich es nicht)

Delphi-Quellcode:

unit myDBGrid;

interface

uses
  SysUtils, Classes, Controls, Grids, DBGrids;

type
  TmyDBGrid = class(TDBGrid)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property FixedCols;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TmyDBGrid]);
end;

end.

[shmia]

Man könnte doch einfach wieder zurücktauschen:

Delphi-Quellcode:

procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex,
  ToIndex: Integer);
begin
   // liegt Quelle oder Ziel Column zwischen 0 und 3 ?
   if (ToIndex < 4) or (FromIndex< 4) then
   begin
      // zurücktauschen
      DBGrid1.Columns.Items[ToIndex].Index := FromIndex;
   end;
end;

[Mario]

@mabuse: Dein Vorschlag ist richtig, aber die Property konnte ich ja setzen. Nur leider ist sie beim DBGrid nicht umsonst noch verborgen :(

@shmia: Ich habe es probiert, scheinbar verhindere ich damit das Tauschen der Spalten. Das war leider auch nicht das Problem. Ich möchte beim horizontalen Scrollen ein paar Spalten zu Begin immer sichtbar halten.