Register_key

Internφ programovacφ jazyk

procedure Register_key(keycode : short; with_shift, with_ctrl, with_alt : Boolean; msg : integer);

Parametry

keycode Φφslo k≤du klßvesy;
with_shift p°φznak souΦasn∞ stisknutΘ klßvesy Shift;
with_ctrl p°φznak souΦasn∞ stisknutΘ klßvesy Ctrl;
with_alt p°φznak souΦasn∞ stisknutΘ klßvesy Alt;
msg Φφslo zprßvy;

Popis

Procedura umo₧nφ m∞nit v²znam klßves. Zp∙sobφ, ₧e p°i stisku klßvesy se vyÜle zprßva.

Ka₧dΘ klßvese (nebo jejφ kombinaci s klßvesami Shift, Ctrl a Alt), jejφ₧ stisk chcete zachytit, musφte pomocφ Register_key, p°i°adit Φφslo zprßvy msg. Pomocφ funkce Get_ext_message v hlavnφ smyΦce programu na tuto zprßvu m∙₧ete reagovat.

╚φsla zprßv msg musφ b²t z intervalu 1001 a₧ 60 000 nebo 0. Mß-li parametr msg hodnotu 0, vrßtφ se klßvese p∙vodnφ v²znam.

Ve vn∞jÜφch jazycφch pou₧ijte pro odchytßvßnφ zprßv od klßvesnice akcelerßtory.

P°edefinovßnφm n∞kter²ch klßves (hlavn∞ funkΦnφch) p°ijdete o jejich p∙vodnφ v²znam. T²kß se to nejen klßves ve WinBase602, ale i klßves, kterΘ pou₧φvajφ Windows (nap°. rychl² v²b∞r z menu apod). Volte proto uvß₧liv∞, kterΘ klßvesy pou₧ijete pro svΘ ·Φely. Chcte-li pouze zablokovat n∞kterΘ klßvesy, kterΘ majφ specifick² v²znam ve formulß°φch, pou₧ijte jako msg Φφslo, na kterΘ ve smyΦce zpracovßvßnφ zprßv nijak nereagujete.

V tabulce jsou uvedeny ΦφselnΘ k≤dy v∞tÜiny klßves na b∞₧nΘ klßvesnici:

klßvesa k≤d klßvesa k≤d klßvesa k≤d

Backspace 8 A 65 num 1 97
Tab 9 B 66 num 2 98
Enter 13 C 67 num 3 99
Pause 19 D 68 num 4 100
Escape 27 E 69 num 5 101
Mezernφk 32 F 70 num 6 102
Page Up 33 G 71 num 7 103
Page Down 34 H 72 num 8 104
End 35 I 73 num 9 105
Home 36 J 74 num * 106
Üipka vlevo 37 K 75 num + 107
Üipka nahoru 38 L 76 num - 109
Üipka vpravo 39 M 77 num . 110
Üipka dol∙ 40 N 78 num / 111
Print Screen 44 O 79 F1 112
Insert 45 P 80 F2 113
Delete 46 Q 81 F3 114
0 48 R 82 F4 115
1 49 S 83 F5 116
2 50 T 84 F6 117
3 51 U 85 F7 118
4 52 V 86 F8 119
5 53 W 87 F9 120
6 54 X 88 F10 121
7 55 Y 89 F11 122
8 56 Z 90 F12 123
9 57 num 0 96 Scroll Lock 145

P°φklad

reagujte na stisk klßvesy Ctrl+F12:

Register_key(123,false,true,false,5000);
...
if msg=5000 then ...

Viz