Shift und Tab im DBGrid - Ich komm nicht raus

[Grolle]

Eigentlich wollte ich mit der Tastenkombination Shift und Tab
aus dem DBGrid raus. Das will aber nicht klappen. Ich bleib
immer im ersten Datensatz hängen. Kann mir da jemand weiter
helfen?

[Sharky]

Hai Grolle,

Du könntest im OnKeyDown des Grids die Tastendrücke auswerten und dann entsprechend reagieren:

Delphi-Quellcode:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if (Key = VK_TAB) then
  begin
    Key := 0;
    if (ssShift in Shift) then
    begin
      Self.Perform(WM_NEXTDLGCTL, 1, 0); // Shift-Tab (zum vorigen Control)
    end
    else
    begin
      Self.Perform(WM_NEXTDLGCTL, 0, 0); // Tab (zum nächten Control)
    end;
  end;
end;

[marabu]

Eventuell reicht ja schon das hier:

Delphi-Quellcode:

  with DBGrid do
    Options := Options - [dgTabs];

Grüße vom marabu

[Sharky]

Zitat von marabu:

Eventuell reicht ja schon das hier:...

NEIN!
Das kann nicht gehen. Es wäre ja der Hammer wenn ich 9 Zeilen Code hintippele und Du machst es mit einer Einstellung im OI

.
.
.

Spass bei Seite. Diese Option ist mir echt noch nicht aufgefallen. Ich sollte wohl ganz schnell meinen zweiten Kaffee holen.