Mega Code Archive

 

Categories / Delphi / System

 

Detect arrow keys

Title: Detect arrow keys Use the KeyDown or KeyUp events, and test VK_LEFT, VK_RIGHT keys and etc. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of VK_LEFT: Label2.Caption:='This is a LEFT'; VK_RIGHT: Label2.Caption:='This is a RIGHT'; VK_UP: Label2.Caption:='This is a UP'; VK_DOWN: Label2.Caption:='This is a DOWN'; end; end;