![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Есть RadioGroup1 в нем генерирую кнопки
Код:
Ocenka := TmpStr; I := RadioGroup1.Items.Add(Ocenka); RBtn := TRadioButton(RadioGroup1.Controls[i]); SetWindowLong(RBtn.Handle,GWL_STYLE,GetWindowLong(RBtn.Handle,GWL_STYLE) or BS_MULTILINE); RBtn.OnKeyDown:=RadioKeyDown; где RadioKeyDown Код:
procedure TMasterOfInspections.RadioKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key in [VK_RETURN, VK_SPACE]) then Button1.Click; if (Key in [VK_LEFT, VK_BACK]) then Button5.Click; end; На нажатие Enter ругается ошибкой памяти Access violation at address... |
#2
|
|||
|
|||
![]() 1. А у Button1 событие Onclick есть?
2. может лучше сразу вызывать Button1Click(Self)? |
#3
|
|||
|
|||
![]() Да. Есть событие. Делал и так все одно - ошибка памяти выскакивает
|
#4
|
|||
|
|||
![]() Цитата:
ЗЫ. Кстати, обычно такая ошибка происходит при обращении к несозданному объекту (одна из самых частых ошибок новичков). |
#5
|
|||
|
|||
![]() в том то и прикол.
вот пытаюсь ее отловить. завернул событие Button1Click в try except showmessage('where are u'); end; но ничего не выдает. |
#6
|
||||
|
||||
![]() Выложи побольше кода, так на кофейной гуще сложно гадать.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |