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