Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2007-04-11 14:21:19 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:14:29
карма: 0

0
Ответов: 9906
Рейтинг: 351
#2: 2007-04-11 14:33:37 ЛС | профиль | цитата
User108 писал(а):
не работает on Key up и on key down на главной форме

вранье - работают
доказательств обратного не приведено.
карма: 9

0
Ответов: 3851
Рейтинг: 159
#3: 2007-04-11 15:04:17 ЛС | профиль | цитата
User108, ПОПРОБУЙ
Add(MainForm,7642517,126,245)
{
Left=20
Top=105
}
Add(KeyHook,6070081,77,245)
{
link(onKeyDown,7642517:doCaption,[])
}

ТВОЙ СЕЙВЕР РЕСУРСОВ МНОГО ЕСТ ?
карма: 0
начавший
0
Ответов: 8926
Рейтинг: 823
#4: 2007-04-11 15:17:59 ЛС | профиль | цитата
User108, действительно, работают
code_1266.txt
карма: 19

0
файлы: 1code_1266.txt [1KB] [411]
Гость
Ответов: 17029
Рейтинг: 0
#5: 2007-04-11 16:08:42 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:14:29
карма: 0

0
Ответов: 485
Рейтинг: 86
#6: 2007-04-11 16:18:56 ЛС | профиль | цитата
User108,
я такой скринсервер делал когда-то. Вот, может пригодится:
(Использованы нестандартные компоненты Turn, Relay!!!)
code_1270.txt
А это инсталлятор для него:

Add(MainForm,15418162,147,154)
{
Left=20
Top=105
Position=1
link(onCreate,3191307:doEvent1,[])
}
Add(SCR,8264078,280,252)
{
FileSCR="CompOFF.scr"
Interval="600"
Point(doInterval)
link(FileSCR,9285972:Var2,[])
}
Add(DoData,7299283,328,189)
{
link(onEventData,16471987:doCopyFromStream,[])
link(Data,7390149:Stream,[])
}
Add(MemoryStream,7390149,328,84)
{
@Hint=#11:CompOFF.scr|
}
Add(Hub,3191307,195,189)
{
OutCount=3
link(onEvent1,2428603:doStrCat,[])
link(onEvent2,8264078:doFileSCR,[(264,202)(264,265)])
link(onEvent3,15418162:doClose,[(240,209)(240,229)(137,229)(137,181)])
}
Add(FileStream,16471987,395,175)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,9285972:Var3,[(401,165)(343,165)(343,235)])
}
Add(Dir,12841543,252,133)
{
Point(WindowsDir)
}
Add(StrCat,2428603,280,189)
{
Str2="system32CompOFF.scr"
link(onStrCat,7299283:doData,[])
link(Str1,12841543:WindowsDir,[])
}
Add(GetDataEx,9285972,273,226)
{
link(Data,2428603:Result,[(286,228)(286,228)])
}
Add(InfoTip,10001748,301,35)
{
Info=#25:Сюда помещаем CompOFF.scr|
Width=99
Height=109
}
карма: 0

0
файлы: 1code_1270.txt [40.2KB] [488]
Ответов: 8926
Рейтинг: 823
#7: 2007-04-11 21:01:32 ЛС | профиль | цитата
User108, всё работает и выскакивают коды нажатых клавиш
карма: 19

0
Ответов: 3655
Рейтинг: 69
#8: 2007-04-11 21:38:57 ЛС | профиль | цитата
Леонид писал(а):
всё работает и выскакивают коды нажатых клавиш

А как обратно вставить
карма: 0

0
Ответов: 8926
Рейтинг: 823
#9: 2007-04-11 22:08:00 ЛС | профиль | цитата
Вячеслав, с другой стороны клавишу нажать
карма: 19

0
Администрация
Ответов: 15295
Рейтинг: 1519
#10: 2007-04-12 01:32:27 ЛС | профиль | цитата
User108 писал(а):
Вот злополучная схема:

в этой схеме все работает
карма: 27
0
Гость
Ответов: 17029
Рейтинг: 0
#11: 2007-04-12 10:42:55 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:14:30
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#12: 2007-04-12 11:30:53 ЛС | профиль | цитата
версия пакета? Компилятор какой?
карма: 27
0
Ответов: 9906
Рейтинг: 351
#13: 2007-04-12 11:42:18 ЛС | профиль | цитата
Чего-то надо придумывать с доступным (даже для Эстонцев) изложением Теории Относительности Очевидности...
100-й раз одна и та же песня...
карма: 9

0
Администрация
Ответов: 15295
Рейтинг: 1519
#14: 2007-04-12 14:13:12 ЛС | профиль | цитата
Для тех, кто отвечат в сотый, для тех кто спрашивает - впервые. Ничего тут не поделаешь.
карма: 27
0
Ответов: 9906
Рейтинг: 351
#15: 2007-04-12 14:22:33 ЛС | профиль | цитата
Ну я и говорю: надо постараться из этих 100 (на самом деле - гораздо больше) выбрать самый лучший, самый наездоустойчивый - и поместить на скрижаль
карма: 9

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