Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

OnClick [D6, Win95/98]


Наташа ©   (2003-02-11 12:17:00) 

Мастера Delphi! подскажите пожалуйста. Существует некая процедура, Когда она вызывается из обработчика OnClick какой-либо кнопки, все работает хорошо, но Если Вызвать из Onclick какой-либо клавиши клавиатуры, то не работает.
If Key=#13 then
{некая процедура}
Key=#0
В чем дело?


Sheriff   (2003-02-11 13:26:00) [1]

либо KeyPreview у формы установить в true...


han_malign   (2003-02-11 13:21:00) [2]

Вероятно, в том и проблема, что VK_RETURN - перехватывается контролом до OnKeyPressed и соответственно (Key=#13) никогда не приходит. (Хотя это надо проверить - не уверен).


myor   (2003-02-11 12:51:00) [3]

если не ошибаюсь,
If Key=#13 then... в OnkeyPressed().


gek   (2003-02-11 12:27:00) [4]

keypreview=true

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RETURN then
superbuttononclick(self)

end;


mate   (2003-02-11 12:23:00) [5]

Чё-то вопрос не понятен. Процедуру onKeyPress пробовали использовать?


D   (2003-02-11 12:23:00) [6]


Проверь в режиме пошаг.отладки. Может, вообще сюда

If Key=#13 then
{некая процедура}

(в OnKeyDown или OnkeyPressed) не заходит


Наверх

Титульная страница Поиск, карта сайта Написать письмо