Автор | Сообщение |
|
| |
Пост N: 5760
Зарегистрирован: 17.05.05
|
|
Отправлено: 23.06.16 21:20. Заголовок: [?] Простой вопрос
Есть главное окно программы , в нем живут несколько CHILD окон (не MDI). В процедуре ON INTERACTIVECLOSE главного окна есть блок кода , если он вернет TRUE тогда закроется главное окно и программа завершится. А вот если блок кода вернул FALSE , то как вернуть фокус ввода на окно на котором был фокус ввода до нажатия крестика главного окна ?
|
|
|
Ответов - 151
, стр:
1
2
3
4
5
6
7
8
All
[только новые]
|
|
|
| постоянный участник
|
Пост N: 1038
Зарегистрирован: 17.02.12
|
|
Отправлено: 26.06.16 14:29. Заголовок: Dima пробни xy+=Thi..
Dima пробни xy+=This.Button_1.Width+11 и глянь i_this.ch
|
|
|
|
| |
Пост N: 5798
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.16 14:42. Заголовок: SergKis пишет: xy+=..
SergKis пишет: цитата: | xy+=This.Button_1.Width+11 |
| Пробовал так , не компилится...
|
|
|
|
| постоянный участник
|
Пост N: 1039
Зарегистрирован: 17.02.12
|
|
Отправлено: 26.06.16 14:51. Заголовок: Dima пишет:Пробовал ..
Dima пишет: цитата: | Пробовал так , не компилится... |
| Тады ОЙ !
|
|
|
|
| |
Пост N: 5822
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.06.16 21:42. Заголовок: Как узнать нажата кл..
Как узнать нажата клавиша (юзер на нее чашку кофе поставил ) или уже отпущена ? Интересуют VK_DOWN и VK_UP Через Sendmessage это можно получить ?
|
|
|
|
| постоянный участник
|
Пост N: 1051
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.06.16 17:36. Заголовок: Dima пишет Интересую..
Dima пишет цитата: | Интересуют VK_DOWN и VK_UP |
| с VK_DOWN - это bUserKeys, а с VK_UP нету, есть метод KeyUp, но в нем нет то, что надо По идее надо было бы иметь bKeyDown и bKeyUp для таких целей
|
|
|
|
| |
Пост N: 5823
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.06.16 19:44. Заголовок: Сергей я не много не..
Сергей я не много не о том. Есть главный бровс и подчиненный в одном окне. При движении по главному , показываю данные в подчиненном по ключу из базы главного в :BChange Там живет что то типа фильтра (SCOPE) + Obrw:Reset() подчиненного бровса. Так вот если база довольно большая И юзер зажал стрелку ВНИЗ то через какой то момент бровс может коника дать....то есть зависнет. Нужна идея (Игорь в курсе) что бы освежать подчиненный бровс только после того как юзер отпустил в конце концов стрелку вниз (вверх и тд и тп включая колесо мыши)
|
|
|
|
| постоянный участник
|
Пост N: 1052
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.06.16 20:13. Заголовок: Дима, я о том же. Мн..
Дима, я о том же. Мне пришлось влезть в KeyDown и сделать (у меня базовая версия 2.07 и изменения [в рамках разумного переношу из тек.]) METHOD KeyDown( nKey, nFlags ) CLASS TSBrowse ... Case nKey == VK_UP ::GoUp() If ::nRowPos == 1 If ::nKeyDownOld == nKey ::nKeyDownCnt += 1 EndIf If ::nKeyDownCnt >= ( ::nRowCount() ) PostMessage(::hWnd, WM_KEYUP , VK_UP , 0) PostMessage(::hWnd, WM_KEYDOWN, VK_PRIOR, 0) EndIf EndIf ::nKeyDownOld := nKey Case nKey == VK_DOWN ::GoDown() x If ::nRowPos == ::nRowCount() If ::nKeyDownOld == nKey ::nKeyDownCnt += 1 EndIf If ::nKeyDownCnt >= ( ::nRowCount() ) PostMessage(::hWnd, WM_KEYUP , VK_DOWN, 0) PostMessage(::hWnd, WM_KEYDOWN, VK_NEXT, 0) EndIf EndIf ::nKeyDownOld := nKey Case nKey == VK_LEFT ...
|
|
|
|
| постоянный участник
|
Пост N: 1053
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.06.16 20:17. Заголовок: PS а подчиненный бро..
PS а подчиненный бровс обновлять по таймеру при смене ключа связки раз в 1 сек. такой механизм работает со времен VO
|
|
|
|
| |
Пост N: 5824
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.06.16 20:21. Заголовок: Понял , думал есть к..
Понял , думал есть какие другие идеи. Игорь тоже предлагает по таймеру. Проехали тогда.
|
|
|
|
| |
Пост N: 5825
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.06.16 20:24. Заголовок: ЗЫ В консоли по ходу..
ЗЫ В консоли по ходу ни чего не виснет при обновлении подчиненного бровса и даже ни какой велосипед сочинять не надо. Пусть юзер хоть заснет на клаве :)
|
|
|
|
| постоянный участник
|
Пост N: 1054
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.06.16 21:05. Заголовок: Dima пишет Через Sen..
Dima пишет цитата: | Через Sendmessage это можно получить ? ... ни какой велосипед сочинять не надо |
| Дима, в чем сомнения ? в подчиненном бровсе переотображать надо (алгоритм делать), а управлять сообщеними (в гуи так принято), например смотри Tsb_Seek2 и on change с postmessage на кл.VK_F20. у тебя похожая ситуация только по таймеру, т.е. подчиненный бровс знает как отображать, а таимер просто посылает сообщение на переотображение через время и все
|
|
|
|
|
| |
Пост N: 5826
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.06.16 21:26. Заголовок: SergKis пишет: Дима..
SergKis пишет: Да привык к консоли , вот оно и сказывается. Мысль понял. Спасибо !
|
|
|
|
| |
Пост N: 5827
Зарегистрирован: 17.05.05
|
|
Отправлено: 30.06.16 10:02. Заголовок: Хотел положить тень ..
Хотел положить тень на все окно а после .... ее убрать. Есть ли пример ?
|
|
|
|
| постоянный участник
|
Пост N: 1055
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.06.16 10:26. Заголовок: Dima пишет Хотел пол..
Dima пишет цитата: | Хотел положить тень на все окно а после .... ее убрать. |
| "моя твоя не понимай", что хочешь 1. цвет в окне на серый 2. не активное окно 3. контролы disable ???
|
|
|
|
| |
Пост N: 5828
Зарегистрирован: 17.05.05
|
|
Отправлено: 30.06.16 10:31. Заголовок: SergKis пишет: 1. ц..
|
|
|
|
| |
Пост N: 5829
Зарегистрирован: 17.05.05
|
|
Отправлено: 30.06.16 10:41. Заголовок: я бы даже сказал зат..
|
|
|
|
| постоянный участник
|
Пост N: 1056
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.06.16 10:45. Заголовок: Dima а это пробовал..
Dima а это пробовал (по chm) ? <WindowName>.BackColor := aBackColor SetProperty(cFrm, "BackColor", aBackColor)
|
|
|
|
| постоянный участник
|
Пост N: 1057
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.06.16 10:50. Заголовок: Dima пишет я бы даже..
Dima пишет цитата: | я бы даже сказал затемнение как на скрине |
| там не активное основное окно, поверх лежит модал окно NOSIZE NOMINIMIZE NOMAXMIZE
|
|
|
|
| постоянный участник
|
Пост N: 1058
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.06.16 11:00. Заголовок: PS точнее с MODAL ..
PS точнее с MODAL [ NOSIZE ] [ NOSYSMENU ] [ NOCAPTION ] со своим X и астион выхода
|
|
|
|
| |
Пост N: 5830
Зарегистрирован: 17.05.05
|
|
Отправлено: 30.06.16 11:10. Заголовок: SergKis пишет: SetP..
SergKis пишет: цитата: | SetProperty(cFrm, "BackColor", aBackColor) |
| Счас пробну. Это не то.
|
|
|
Ответов - 151
, стр:
1
2
3
4
5
6
7
8
All
[только новые]
|
|