DBGrid-Steuerung

[ts-d]

Hallo,

ich möchte, daß, wenn das DBGrid den Focus hat und ich die Pfeiltaste nach oben und unten betätige, Code zum Abrufen zusätzlicher Informationen ausgeführt wird.

Es soll derselbe Code sein, der in dem Ereignis gespeichert ist und ausgeführt wird:

procedure TForm_HauptUnterPos.DBGrid_ErgebnisCellClick(Colum n: TColumn);

Also konkret:
1. Auf welches Ereignis kann ich reagieren (Pfeiltasten-Betätigung)?
2. Welchen Befehl setze ich ein, um die oben geannte Prozedur in Gang zu setzen?

[Delphi.Narium]

Ungetestet grob sowas:

DBGrid_Ergebnis mit 'nem Ereignis OnKeyUp versorgen:

Delphi-Quellcode:

procedure TForm_HauptUnterPos.DBGrid_ErgebnisKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  // 38 = Pfeil nach oben
  // 40 = Pfeil nach unten
  case key of
    38,40 : DBGrid_ErgebnisCellClick(DBGrid_Ergebnis.SelectColumn);
  end;
end;

[Uwe Raabe]

Die Up/Down-Tasten wechseln ja den Datensatz des über die DataSource verknüpften DataSets. Die dortigen BeforeScroll und/oder AfterScroll wären vermutlich die richtigen Ansatzpunkte.

[ts-d]

danke für beide tipps - ich versuch's mal

[ts-d]

es gibt nicht .SelectColumn, nur .SelectedField .SelectedRows und .SelectedIndex
Aber DBGrid_ErgebnisCellClick(nil) funktioniert!

Zitat:

Zitat von Delphi.Narium (Beitrag 1502377)

Ungetestet grob sowas:

DBGrid_Ergebnis mit 'nem Ereignis OnKeyUp versorgen:

Delphi-Quellcode:

procedure TForm_HauptUnterPos.DBGrid_ErgebnisKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  // 38 = Pfeil nach oben
  // 40 = Pfeil nach unten
  case key of
    38,40 : DBGrid_ErgebnisCellClick(DBGrid_Ergebnis.SelectColumn);
  end;
end;