как сделать горячую клавишу
Добавлено: 12 ноя 2007, 13:10
есть такой код
все чудно работает, токо вот горячие клавиши не срабатывают
может кто нить мне объяснить что не так и где ошибка
Код: Выделить всё
sortLine statusLine
{
(scSort..scSort)
{
'cmNextRec', cmNextRec, kbCtrlDown;
'cmPrevRec', cmPrevRec, kbCtrlUp;
}
}
interface test (,,scSort) doAccept;
create view as select * from KatPodr;
browse browse1 (,,scSort);
fields
KatPodr.Name 'Имя файла ': [30], protect;
end;
HandleEvent
cmHotKeys:
{
PutHotCommand(RunMenu('mnuTest'));
}
cmNextRec:
{
message('cmNextRec');
}
cmPrevRec:
{
message('cmPrevRec');
}
end;
end.
mnuTest menu
{
- 'cmNextRec', cmNextRec,,,,kbCtrlDown,;
- 'cmPrevRec', cmPrevRec,,,,kbCtrlUp,;
}
может кто нить мне объяснить что не так и где ошибка