Mit Cursortasten auf und ab in Editfelder

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
Nihao
Beiträge: 14
Registriert: Do 26. Mai 2016, 13:11

Mit Cursortasten auf und ab in Editfelder

Beitrag von 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.

Benutzeravatar
Ally
Beiträge: 263
Registriert: Do 11. Jun 2009, 09:25
OS, Lazarus, FPC: Win und Lazarus Stable release
CPU-Target: x64

Re: Mit Cursortasten auf und ab in Editfelder

Beitrag von 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

Antworten