Работаю в Delphi7,

на форме у меня стоит DBGrid, я хочу чтобы при переходе по его записям клавишами UP-DOWN
выполнялась какая-нибудь процедура, к сожалению, событие CellClick DBGrid-а не реагирует на эти кнопки, как же мне это организовать.

при переходе по его записям клавишами UP-DOWN - меняються только значения полей DBlabel,
которые я сажаю на форму, но мне нужно еще и выполнение процедуры,

Вообще-то помимо клавиш UP-DOWN, также удобно было бы пользоваться для тех же целей Enter-ом,

одним словом , думаю проблема ясна.... прошу предложения, по-моему вполне нужная вещь при работе с данными.

А то постоянно кликать мышью по записям, чтобы присходили желаемые мной расчеты над текущей записью - слишком неудобно!!

Событие от TTable или TQuery - не знаю что там у тебя к гриду прикручено, AfterScroll, BeforeScroll

Глобальный перехват нажатия клавиш в приложении
Типа хук ставить можно, но можно и проще: начинай просмотр событий с OnKeyDown...

Удалено модератором

Это сообщение отредактировал(а) Vit - 12.5.2004, 15:49

Относительно AfterScroll & BeforScroll - я не раз натыкался на грабли. Я не помню точно, что я делал в событии AfterScroll, но мне пришлось переносить процедуру в события AfterPost, AfterDelete, по моему мне нужно было пробегаться по записям в таблице для подсчета общей суммы. А можно использовать еще один компонент, подключенный к той же таблице и обновлять его.

Цитата

Событие от TTable или TQuery - не знаю что там у тебя к гриду прикручено, AfterScroll, BeforeScroll

- и после этого при нажатии клавиши UP-DOWN или Enter будет выполняться посаженная туда моя процедурка?

Странно, что события AfterScroll, BeforeScroll у TTable или TQuery , а не у грида...

Цитата

но мне пришлось переносить процедуру в события AfterPost, AfterDelete, по моему мне нужно было пробегаться по записям в таблице для подсчета общей суммы

эти события у меня вообще не используються, я не редактирую записи через грид

Цитата

А можно использовать еще один компонент, подключенный к той же таблице и обновлять его.

- не поняла, нельзя ли по-подробнее, я медленно соображаю.
Какая разница, ну добавлю еще один грид - причем тут реакция на UP-DOWN или Enter ?

Цитата

начинай просмотр событий с OnKeyDown...

- об этом я думала,
я не нашла какой код key у клавиш UP-DOWN? А вот с Enter - это не пойдет, потому что пока надо заставить грид при нажатии Enter переходить на следующую запись, хотя наверно е это не сложно, используя .next???

Цитата

Зы... мог и не понять вопросик, простите (особенно Pegas)

- по-моему все ясно написано, куда уж яснее?

Кода клавишь есть: VK_UP, VK_DOWN. Смотри в хелпе "Virtual key codes";

Цитата

- и после этого при нажатии клавиши UP-DOWN или Enter будет выполняться посаженная туда моя процедурка?

При навигации в гриде у тебя происходит смена текущей позиции в НД, с которым этот грид связан. Кстати можно ещё использовать событие OnDataChange у компонента TDataSource, который связан с гридом.

Цитата

А вот с Enter - это не пойдет

В событии OnKeyDown грида пишешь:

Код

if Key = VK_RETURN then  DBGrid1->DataSource->DataSet->Next;

При нажатии ENTER будет осуществлятся переход к следующей строке.

Удалено модератором

Это сообщение отредактировал(а) Vit - 12.5.2004, 15:49

Цитата

Кода клавишь есть: VK_UP, VK_DOWN. Смотри в хелпе "Virtual key codes";

- я искала, не нашла...

Цитата

Pegas Огромное спасибо за унижение, может ещё раз сделаешь? а?

че то я не въезжаю - о чем это вы?

Удалено модератором

самый нормальный вариант для отработки смены записи - это Table1.OnAfterScroll; (см ответ Vit'а).

Это сообщение отредактировал(а) Vit - 12.5.2004, 15:49

Вариант Vit, конечно, самый первый и правильный....

Удалено модератором

Это сообщение отредактировал(а) Vit - 12.5.2004, 15:48

Цитата

Цитата Событие от TTable или TQuery - не знаю что там у тебя к гриду прикручено, AfterScroll, BeforeScroll - и после этого при нажатии клавиши UP-DOWN или Enter будет выполняться посаженная туда моя процедурка? Странно, что события AfterScroll, BeforeScroll у TTable или TQuery , а не у грида...

AfterScroll, BeforeScroll будут вызываться при любом переходе с одной строки грида на другую, не важно какими клавишами, мышаком или ещё чем это сделано.



Модератор: прекратите разборки и флуд! для этого есть специальный раздел, действия модераторов обсуждаются там же.

Это сообщение отредактировал(а) Vit - 12.5.2004, 15:51

Удалено модератором

Это сообщение отредактировал(а) Pegas - 13.5.2004, 01:02

Цитата

- я искала, не нашла...

В хелпе на вкладке "Поиск" набираешь VK_UP и .....

в редакторе свойств перейди на закладку событий и щелкни один раз на событии OnKeyDown и нажми F1

Цитата

Событие от TTable или TQuery - не знаю что там у тебя к гриду прикручено, AfterScroll, BeforeScroll

- к сожалению не выходит. Во-первых AfterScroll - точно так же, как и с ONCellClick у грида реагирует
только на щелкание мышью по записям, а на клавиши UP-DOWN - 0 книмания. А во вторых, почему то
вообще никак не риагирует при выбирании последней записи в гриде.
А BeforeScroll - вообще никак не реагирует.

Цитата

Кстати можно ещё использовать событие OnDataChange у компонента TDataSource, который связан с гридом.

Тут аналагично с использованием прикручено, реагирует только при клике мышь на запись, а на кнопки UP-DOWN
не реагирует.

Смотри в хелпе "Virtual key codes";
Да, посмотрела, все увидела только проблема такая, что код следующий твой

Код

if Key = VK_RETURN then

не работает , говорит Incompetible types, тогда ставлю VK_RETURN в кавычки,
но в этом случае реакции никакой. В чем тут дело?

Так, что пока проблема никак не решена...