Mit Cursortasten auf und ab in Editfelder

[Nihao]

Hallo,

wie kann ich in editfelder mit Pfeil oben ein Feld zurück - also Shift Tab.

Tab kann ich machn, nur nach oben geht nich.

[Ally]

Hallo Nihao,

so kann man mit den Pfeil auf-ab-Tasten durch die Controls springen.

Form1.KeyPreview auf True setzen.

Code: Alles auswählen

uses
  ........, LCLType;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  Richtung: boolean;
begin
  if (Key = VK_DOWN) or (Key = VK_UP) then
  begin
    Richtung := Key = VK_DOWN;
    Key := 0; // Key sicherheitshalber löschen bevor zum nächsten Control gesprungen wird.
    SelectNext(ActiveControl, Richtung, True);
  end;
end;
 

Siehe auch: https://lazarus-ccr.sourceforge.io/docs ... tnext.html

Gruß Roland