Клавиши

Вверх ↑

Форумы Помощь по средеКлавиши ← Ctrl12 3Ctrl →

Этот топик читают: Гость

Ответов: 26

Рейтинг: 1

#1: 2008-12-12 12:24:37 ЛС | профиль | цитата

Чем задать нажатий клавиш по очерёдно? тоесть 1 2 3 4 5 а б в и т.д.

карма: 0

Ответов: 199

Рейтинг: 7

#2: 2008-12-12 12:49:03 ЛС | профиль | цитата

Можно вот так
code_10938.txt
Вот коды ко всем клавишам


забой  	  	8  	
Tab 	 	9 	
Enter 	 	13 	
Shift 	 	16 	
Ctrl 	 	17 	
Alt 	 	18 	
Pause 	 	19 	
CapsLock  	20 	
Esc 	 	27 	
пробел 	 	32 	
PageUp 	 	33 	
PageDown  	34 	
End 		35 	
Home 		36 	
стрелка влево 	37 	
стрелка вверх 	38 	
стрелка вправо 	39 	
стрелка вниз 	40 	
Insert 	  	45 	
Delete 	  	46 	
0 	  	48 	
1 	  	49 	
2 	  	50 	
3 	  	51 	
4 	  	52 	
5 	  	53 	
6 	  	54 	
7 	  	55 	
8 	  	56 	
9 	  	57 	
A 	  	65 	
B 	  	66 	
C 	  	67 	
D 	  	68 	
E 	  	69 	
F 	  	70 	
G 	  	71 	
H 	  	72 	
I 	  	73 	
J 	  	74 	
K 	  	75 	
L 	  	76 	
M 	  	77 	
N 	  	78 	
O 	  	79 	
P 	  	80 	
Q 	  	81 	
R 	  	82 	
S 	  	83 	
T 	  	84 	
U 	  	85 	
V 	  	86 	
W 	  	87 	
X 	  	88 	
Y 	  	89 	
Z 	  	90 	
левая  Windows 	91 	
правая Windows 	92 	
 Applications 	93 	
NumPad 0 	96 	
NumPad 1 	97 	
NumPad 2 	98 	
NumPad 3 	99 	
NumPad 4 	100 	
NumPad 5 	101 	
NumPad 6 	102 	
NumPad 7 	103 	
NumPad 8 	104 	
NumPad 9 	105 	
NumPad * 	106 	
NumPad + 	107 	
NumPad - 	109 	
NumPad . 	110 	
NumPad / 	111 	
F1 	 	112 	
F2 	 	113 	
F3 	 	114 	
F4 	 	115 	
F5 	 	116 	
F6 	 	117 	
F7 	 	118 	
F8 	 	119 	
F9 	 	120 	
F10 	 	121 	
F11 	 	122 	
F12 	 	123 	
NumLock 	144 	
ScrollLock 	145 	
PrintScreen 	154 	
Meta 	 	157 	
; 	  	186 	
= 	  	187 	
, 	  	188 	
- 	  	189 	
. 	  	190 	
/ 	  	191 	
~ 	  	192 	
[ 	  	219 	
\ 	  	220 	
] 	  	221 	
' 	  	222

карма: 0

файлы: 1 code_10938.txt [1.1KB] [183]

Голосовали: ????

Ответов: 47

Рейтинг: 2

#3: 2008-12-13 10:55:13 ЛС | профиль | цитата

Спасибо

карма: 0

Ответов: 26

Рейтинг: 1

#4: 2008-12-14 02:43:38 ЛС | профиль | цитата

lenchik_vla спасибо за схему, принцип вроде как понятен

------------ Дoбавленo:


Make(delphi)
Add(MainForm,2953706,7,42)
{
}
Add(Edit,4033248,112,14)
{
 Left=115
 Top=40
 Width=220
 Text=""
}
Add(Timer,13938185,259,210)
{
 Enable=1
 link(onTimer,15290209:doNext,[])
}
Add(StyleXP,8588570,7,7)
{
}
Add(StrList,14896293,385,168)
{
 Strings=#2:48|2:49|2:50|2:51|2:52|2:53|2:54|2:55|
 Point(onGetString)
 Point(doGetString)
 link(onGetString,2422074:doPress,[])
}
Add(Counter,15290209,308,210)
{
 link(onNext,14896293:doGetString,[])
}
Add(Memory,7685663,189,210)
{
 link(onData,13938185:doTimer,[])
}
Add(KeyEvent,2422074,483,175)
{
 link(Handle,7685663:Value,[(489,163)(335,163)(335,254)(195,254)])
}
Add(Button,10372022,133,210)
{
 Left=15
 Top=40
 link(onClick,7685663:doValue,[])
}

1. Где ощибся с таймером нужно что б обработотка шла бесконечно.
2. Каким компонентом пользоваться что б вызывать Горячей клавишой?

карма: 0

Гость

Ответов: 17029

Рейтинг: 0

#5: 2008-12-15 01:36:47 правка | ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2017-03-04 21:27:55

карма: 0

Ответов: 26

Рейтинг: 1

#6: 2008-12-16 19:11:40 ЛС | профиль | цитата

Помогите немогу понять просто,что делать с DoReset как его правильно прелепить с таймером, вот код:


Add(KeyEvent,6927801,294,140)
{
 link(Handle,13120229:Count,[(300,128)(251,128)(251,219)(216,219)])
}
Add(StrList,5586504,252,133)
{
 Strings=#2:48|2:49|2:50|2:51|2:52|2:53|2:54|2:55|2:56|2:57|2:58|2:59|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,6927801:doPress,[])
}
Add(Timer,16503588,168,175)
{
 Enable=1
 Point(doAutoStop)
 Point(onStop)
 link(onTimer,13120229:doNext,[])
 link(onStop,13120229:doReset,[(205,188)(205,195)])
}
Add(Counter,13120229,210,175)
{
 link(onNext,5586504:doGetString,[])
}
Add(Button,15355413,126,175)
{
 Left=25
 Top=20
 link(onClick,16503588:doTimer,[])
}

карма: 0

Ответов: 199

Рейтинг: 44

#7: 2008-12-16 19:50:29 ЛС | профиль | цитата

code_10968.txt

второй вариант - если ненужна задержка по времени.

карма: 0

файлы: 1

code_10968.txt [1.7KB] [191]

Ответов: 26

Рейтинг: 1

#8: 2008-12-16 20:07:00 ЛС | профиль | цитата

В чем приколь после нажатия всех клавиш идёт маленькая задержка) вот она не нужна)

карма: 0

Ответов: 278

Рейтинг: 9

#9: 2008-12-16 20:17:20 ЛС | профиль | цитата

В чем приколь после нажатия всех клавиш идёт маленькая задержка) вот она не нужна)

Может интервал таймера поменьше сделать ? Попробуй.

Если не получится, то воспользуйся элементами из вкладки FTCG

карма: 0

Ответов: 26

Рейтинг: 1

#10: 2008-12-16 20:19:30 ЛС | профиль | цитата

Может интервал таймера поменьше сделать ? Попробуй.

Интервал потом будет регулироваться

Если не получится, то воспользуйся элементами из вкладки FTCG

щас по пробую

карма: 0

Ответов: 199

Рейтинг: 44

#11: 2008-12-16 21:39:46 ЛС | профиль | цитата

???? писал(а):

В чем приколь после нажатия всех клавиш идёт маленькая задержка

после нажатия цифровых клавиш идут клавиши 58 59 они неотображаются.

карма: 0

Ответов: 26

Рейтинг: 1

#12: 2008-12-16 21:51:33 ЛС | профиль | цитата

после нажатия цифровых клавиш идут клавиши 58 59 они неотображаются.

дело не в клавишах, с любым количеством от * и до * после чтения проходит задержка.


Add(Edit,4033248,49,7)
{
 Left=115
 Top=40
 Width=220
 Text=""
}
Add(Timer,13938185,77,126)
{
 Interval=300
 Enable=1
 link(onTimer,15290209:doNext,[])
}
Add(StrList,14896293,161,49)
{
 Strings=#2:48|2:49|2:50|2:51|2:52|2:53|2:54|2:55|
 Point(onGetString)
 Point(doGetString)
}
Add(Counter,15290209,126,126)
{
 link(onNext,7732588:doRead,[])
}
Add(KeyEvent,2422074,294,259)
{
 link(Handle,5097345:Handle,[])
}
Add(ArrayRW,7732588,175,126)
{
 link(onRead,14849941:doEvent1,[])
 link(Array,14896293:Array,[])
}
Add(If_else,6192450,175,259)
{
 link(onTrue,15290209:doReset,[(219,265)(219,205)(114,205)(114,146)])
 link(onFalse,2422074:doPress,[(251,272)(251,265)])
 link(Op1,7732588:Item,[])
 link(Op2,7225457:Caption,[])
}
Add(Button,14187523,35,126)
{
 Left=40
 Top=40
 link(onClick,13938185:doTimer,[])
}
Add(Hub,14849941,238,126)
{
 link(onEvent2,6192450:doCompare,[(282,139)(282,202)(163,202)(163,265)])
}
Add(Label,7225457,182,210)
{
 Left=195
 Top=180
 Caption="55"
}
Add(MainForm,5097345,294,196)
{
 Point(Handle)
}

Вот мой способ что смог придумать :D Всеравно небольщая задержка есть :cry:

карма: 0

Ответов: 3851

Рейтинг: 159

#13: 2008-12-16 23:02:18 ЛС | профиль | цитата

может так code_10970.txt ?..

карма: 0

начавший

файлы: 1

code_10970.txt [1.2KB] [174]

Ответов: 26

Рейтинг: 1

#14: 2008-12-16 23:32:23 ЛС | профиль | цитата

Андрей. не-а ещё хуже получиться)) вообще не будет работать)

карма: 0

Ответов: 3851

Рейтинг: 159

#15: 2008-12-16 23:46:55 ЛС | профиль | цитата

???? писал(а):

не будет работать

подробнее (у меня работает)..

карма: 0

начавший

Форумы Помощь по средеКлавиши ← Ctrl12 3Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)