Spalten in einem DBGrid verschieben und auch sortieren!

[m-werk]

Ich hab da ein kleines problem:

Ich habe im Formular unter 'type' folgendes eingegeben:

Code:

THackAccess = class(TCustomGrid);

und weiters

Code:

procedure MoveDBGrid1Columns(DBGrid1: TDBGrid; FromColumn, ToColumn: Integer);
begin
  THackAccess(DBGrid1).MoveColumn(FromColumn, ToColumn);
end;

Wenn ich das Prog. jetzt starten möchte, kommt eine Fehlermeldung:

':'erwartet, '=' gefunden

Das ist bei der Zeile unter Type.

Was mach ich da falsch?
Ich möchte, dass der User die Colums im DBGrid verschieben kann, wie er möchte.

Weiters hab ich noch ne frage:
In den Colums werden Datensätze wie z.B. Name Vorname usw angezeigt.
Wie kann ich es erstellen, dass wenn ein User auf eine Columsüberschrift klickt, die Daten entweder von A-Z oder von Z-A sortiert werden. (Dies soll für jede columne so sein!)

[d3g]

Hi m-werk,

irgendwie muss das was mit der type-Deklaration faul sein. Poste mal die Deklaration vor THackAccess, ich vermute, das fehlt ein end oder etwas ähnliches.

MfG,
d3g

[m-werk]

Die Deklaration hab ich ja eh schon gepostet! oder nicht?

Ich habe unter type das stehen:

Code:

THackAccess = class(TCustomGrid);

und noch den code der procedure, den ich vorher hineingeschrieben habe.

Hab ich da was vergessen?

[d3g]

Hi m-werk,

Zitat:

Poste mal die Deklaration vor THackAccess

MfG,
d3g

[m-werk]

Code:

type
  TKundenDruckMenue = class(TForm)
  THackAccess = class(TCustomGrid)  
    Button2: TButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    .... usw.

[d3g]

Hi m-werk,

so muss es heißen:

Code:

type 
  TKundenDruckMenue = class(TForm)
    Button2: TButton; 
    DBGrid1: TDBGrid; 
    Label1: TLabel; 
    .... usw.
  end;

  THackAccess = class(TCustomGrid);

Evtl. THackAccess vor TKundenDruckMenue stellen.

MfG,
d3g

[m-werk]

DANKE, das mit dem Code nach dem end. funktioniert spitze. Ich kann jetzt die Spalten bewegen, wie ich möchte.

Eine sache habe ich dabei noch bemerkt. Wenn ich jetzt die Spalten vertausche, und dann das programm nochmal starte, ist alles wieder so, wie es vorher war. Das vertauschen wird nicht gespeichert. Wie kann ich dass den lösen.

Weiters:

Wie kann ich jetzt noch sortieren?
Wenn ich auf eine Spaltenüberschrift klicke, dann soll sortiert werden. Entweder von A-Z oder von Z-A.

Kannst du mir da auch noch helfen?

[d3g]

Sorry, ich benutze im Moment nur D6 Personal und das siehts mit TDBGrid ein bisschen mager aus...

MfG,
d3g

[Luckie]

Das DBGrid dient doch nur der Darstellung der Daten, das heißt die Sortierung müßte IMHO mit einer Abfrage gemacht werden.

[m-werk]

IMHO? was bedeutet das?

Wie könnte denn so eine Abfrage aussehen?
Wie kann ich auch die Spaltenverschiebung speichern, so dass beim nächsten Start des Prog. nicht wieder die urspüngliche Einstellung angezeigt wird?