DBGrid Navigation unterscheidet sich je nach gewählter Option

[Maa83]

Hallo,

ich habe ein kleines Problem.

Ich möchte im DBGrid die komplette Zeile einfärben wenn jemand auf eine Zelle klickt.
Dazu gibt es die Option dgRowSelect.

Wenn ich diese Option setzt habe ich optisch den richtigen Effekt.
Wenn ich nun aber mit den Cursor-Tasten nach rechts oder links möchte werde ich nach oben oder nach unten im Grid navigiert.

Dieses Verhalten ist für mich nicht brauchbar.

Wenn ich das dgRowSelect weglasse und stattdessen dgMultiSelect wähle, wird optisch auch die gesamte Zeile markiert das Verhalten der Cursortasten ist dann jedoch korrekt. D.h. nach rechts ist auch nach rechts und nicht nach unten im Grid.

Ich möchte jedoch nicht zulassen, dass der Anwender mehrere Zeilen markieren kann. Ist also auch nicht das was ich brauche.

Kann mir hier jemand weiterhelfen? Kann doch eigentlich nicht sein, dass ich für soetwas eine CustomDraw-Routine schreiben muss.

[hhcm]

Zitat von Maa83:

Kann doch eigentlich nicht sein, dass ich für soetwas eine CustomDraw-Routine schreiben muss.

Mir wäre nichts anderes bekannt, zumindest nicht beim normalen DBGrid. Beim z.B TMS Grid geht das etwas einfacher
Aber beim VCL DBGrid musst du´s über DrawColumnCell machen
z.B so.

Delphi-Quellcode:

type
  TGridHack = Class(TCustomDBGrid);

...

procedure TFormX.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 with TGridHack(Sender) do
 begin
     if DataLink.ActiveRecord = Row - 1 then
     begin
        Canvas.Brush.Color := clHighlight;
        Canvas.Font.Color := clHighlightText;
     end;

     DefaultDrawColumnCell(Rect, DataCol, Column, State);
 end;

end;

[Maa83]

Danke für den Hinweis. Werde ich dann wohl machen müssen.