keymap.dpr 626 B

12345678910111213141516171819202122
  1. {: Demonstrates how to check pressed keys and allow the user to remap controls.
  2. The panel react to the "key" written in their Caption property, default
  3. captions react to mouse buttons. If a panel is clicked, the user will be
  4. prompted to type a key, this key will then be mapped to the panel, by name.
  5. Note the some keynames are localized and may differ between Windows versions,
  6. this is the case for most control and num keypad keys.
  7. }
  8. program keymap;
  9. uses
  10. Forms,
  11. Unit1 in 'Unit1.pas' {Form1};
  12. {$R *.RES}
  13. begin
  14. Application.Initialize;
  15. Application.CreateForm(TForm1, Form1);
  16. Application.Run;
  17. end.