Вверх ↑
Этот топик читают: Гость
Ответов: 37
Рейтинг: 1
#1: 2017-08-17 12:34:21 ЛС | профиль | цитата
Здравствуйте мастера!
Есть несколько календарей,количество около 27.
При нажатии кнопки Tab, фокус перелается следующему внизу календарю.
Как назначит две кнопки, к примеру W кнопка для передачи фокуса к следующему вверх, к примеру S кнопка для передачи фокуса к следующему вниз

Add(MainForm,2953706,21,105)
{
Width=300
Height=200
}
Add(DatePicker,285339,202,100)
{
Left=77
Top=19
Width=92
Height=21
Font=[Tahoma,10,0,128,204]
TabOrder=2
Ctl3D=0
WinStyle=1
Style=1
AlignPicker=1
}
Add(DatePicker,7789511,202,170)
{
Left=77
Top=89
Width=92
Height=21
Font=[Tahoma,10,0,128,204]
TabOrder=1
Ctl3D=0
WinStyle=1
Style=1
AlignPicker=1
}
Add(DatePicker,5190878,202,37)
{
Left=77
Top=54
Width=92
Height=21
Font=[Tahoma,10,0,128,204]
Ctl3D=0
WinStyle=1
Style=1
AlignPicker=1
}

Редактировалось 1 раз(а), последний 2017-08-17 12:35:28
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 817
Рейтинг: 52
#2: 2017-08-17 15:35:57 ЛС | профиль | цитата
Для этого есть стандартные горячие кнопки
Вперед - Tab
Назад - Shift+Tab
карма: 1

1
Голосовали:Tad
Ответов: 37
Рейтинг: 1
#3: 2017-08-18 08:06:59 ЛС | профиль | цитата
-= DriveR =- Спасибо Кэп))
Но речь шла об одной кнопке на операцию.
карма: 0

0
Ответов: 9906
Рейтинг: 351
#4: 2017-08-18 08:33:05 ЛС | профиль | цитата
Add(DatePicker,285339,490,147)
{
Left=77
Top=61
Width=92
Height=21
Font=[Tahoma,10,0,128,204]
TabOrder=2
Ctl3D=0
WinStyle=1
Style=1
AlignPicker=1
Point(doSetFocus)
Point(onSetFocus)
link(onSetFocus,7620881:doWork2,[])
}
Add(DatePicker,7789511,490,189)
{
Left=77
Top=103
Width=92
Height=21
Font=[Tahoma,10,0,128,204]
TabOrder=1
Ctl3D=0
WinStyle=1
Style=1
AlignPicker=1
Point(doSetFocus)
Point(onSetFocus)
link(onSetFocus,7620881:doWork3,[(536,202)(536,167)])
}
Add(DatePicker,5190878,490,105)
{
Left=77
Top=19
Width=92
Height=21
Font=[Tahoma,10,0,128,204]
Ctl3D=0
WinStyle=1
Style=1
AlignPicker=1
Point(doSetFocus)
Point(onSetFocus)
link(onSetFocus,7620881:doWork1,[(536,118)(536,153)])
}
Add(CounterEx,15194083,378,147)
{
Max=2
Point(doPrev)
Point(doValue)
link(onNext,9796227:doEvent,[])
}
Add(IndexToChanel,9796227,427,147)
{
Count=3
link(onEvent1,5190878:doSetFocus,[(473,153)(473,118)])
link(onEvent2,285339:doSetFocus,[])
link(onEvent3,7789511:doSetFocus,[(473,167)(473,202)])
}
Add(Button,8461434,315,189)
{
Left=14
Top=42
Width=34
Caption="UP"
link(onClick,15194083:doPrev,[(361,195)(361,160)])
}
Add(Button,10346097,315,147)
{
Left=14
Top=84
Width=34
Caption="DN"
link(onClick,15194083:doNext,[])
}
Add(ChanelToIndex,7620881,560,147)
{
Count=3
link(onIndex,15194083:doValue,[(599,153)(599,230)(368,230)(368,167)])
}

Редактировалось 2 раз(а), последний 2017-08-18 08:47:23
карма: 9

0
Ответов: 8887
Рейтинг: 823
#5: 2017-08-18 10:02:40 ЛС | профиль | цитата
Galkov, после выбора даты мышкой не видно фокуса на календаре, соответственно на клавиши не реагирует
карма: 19

0
Ответов: 9906
Рейтинг: 351
#6: 2017-08-18 10:54:29 ЛС | профиль | цитата
Леонид писал(а):
после выбора даты мышкой не видно фокуса на календаре
Ну и чего с этого. Клавиши Left/Right опять подсвечивают поле редактирования
А если добавить StyleXP - то все продолжает быть видно и "после выбора даты мышкой".

Леонид писал(а):
соответственно на клавиши не реагирует
Не подтверждается. Реагирует и на клавиши и на кнопки.
Left/Right - меняет поле редактирования, Up/Down - значение поля, Tab - передает фокус.


Леонид, я не буду чинить системный контролл SysDateTimePick32 -- даже и не уговаривай.
ось: Windows-10

Редактировалось 6 раз(а), последний 2017-08-18 10:59:56
карма: 9

0
Ответов: 8887
Рейтинг: 823
#7: 2017-08-18 11:47:55 ЛС | профиль | цитата
Galkov писал(а):
не буду чинить системный контролл
Да мне и в голову никогда не придёт ставить десяток календарей, поэтому уговаривать и не буду
У меня Win-7-64
карма: 19

0
Ответов: 9906
Рейтинг: 351
#8: 2017-08-18 11:51:38 ЛС | профиль | цитата
У жены на компе проверил (тоже Win-7-64) -- и все как у меня на 10-ке (не считая DPI)
А вовсе не как у тебя.
Лучше вспомни, что нажимал... Лучше вспомни

Редактировалось 1 раз(а), последний 2017-08-18 11:51:59
карма: 9

0
Ответов: 8887
Рейтинг: 823
#9: 2017-08-18 14:18:04 ЛС | профиль | цитата
А чего вспоминать, фокус передаётся, но на (как будто) невидимое поле справа и переходит на отражаемое поле лишь по нажатию Left/Right, до этого на цифровые кнопки не реагирует

--- Добавлено в 2017-08-18 14:19:33

Ой, только от гипноза отошёл, уф-ф

Редактировалось 1 раз(а), последний 2017-08-18 14:19:33
карма: 19

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