Форма не реагирует на нажатие клавиши - Помощь студентам

Vladya · 12.05.2009, 16:41

Люди подскажите почему это может быть? Вроде все правильно пишу:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 13 then ManualChoise;
if key = 46 then DeleteItem;
end;

а при запуске программы и после нажатия на клавишу ничего не происходит. Может такое быть из-за того что у меня прозрачная форма и убрана рамка?

Neeter · 12.05.2009, 16:55

Может так:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = #13 then ManualChoise;
if key = #46 then DeleteItem;
end;

Vladya · 12.05.2009, 17:02

Нет, так не работает

Пепел Феникса · 12.05.2009, 17:04

нет не так

Владя, поставь бряки и посмотри происходит ли это событие вообще?
а может какой компонент имеет фокус?

Stilet · 12.05.2009, 17:05

Цитата:

Может такое быть из-за того что у меня прозрачная форма и убрана рамка?

Может. А может ты не поставил KeyPreview:=true

Цитата:

Neeter

Проверяй что пишеш, в следующий раз код расценю как мусор и удалю

Код:

key = #13 - несовместимые типы.

Vladya · 12.05.2009, 17:05

Что то я вас не очень понял. Чего поставить?

Neeter · 12.05.2009, 17:07

Вы попробуйте #13 заменить на VK_RETURN, проверьте, будет ли работать Enter.

Stilet, хотя да... #13 действует только в onKeyPress чтоли?

бряк - это Breakpoint, надо нажать на цифру(которая около строки) чтоб он появился в этой части кода.
Используется для дебага. Если не знаете как пользоваться почитайте где-нибудь...

Vladya · 12.05.2009, 17:11

Цитата:

Сообщение от Stilet

Может. А может ты не поставил KeyPreview:=true

Точно!!!
Ребята спасибо всем что пытались помочь, я в свою очередь извиняюсь за свою тупость. Тему можно закрывать! еще раз всем спасибо!

12.05.2009, 16:55	#2
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Может так: Код: `procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = #13 then ManualChoise; if key = #46 then DeleteItem; end;` Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

12.05.2009, 17:02	#3
Vladya Форумчанин Регистрация: 04.11.2008 Сообщений: 360	Нет, так не работает Мой скромненький сайт

12.05.2009, 17:05	#6
Vladya Форумчанин Регистрация: 04.11.2008 Сообщений: 360	Что то я вас не очень понял. Чего поставить? Мой скромненький сайт

12.05.2009, 17:07	#7
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Вы попробуйте #13 заменить на VK_RETURN, проверьте, будет ли работать Enter. Stilet, хотя да... #13 действует только в onKeyPress чтоли? бряк - это Breakpoint, надо нажать на цифру(которая около строки) чтоб он появился в этой части кода. Используется для дебага. Если не знаете как пользоваться почитайте где-нибудь... Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Последний раз редактировалось Neeter; 12.05.2009 в 17:11.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Имитатор нажатие клавиши на клавиатуре	SNUPY	Общие вопросы Delphi	3	10.11.2008 21:39
Запрет на повторное нажатие клавиши	russian-stalker	Общие вопросы Delphi	3	12.09.2008 19:39
Help!SOS! Форма не реагирует на событие	Bezdar	Microsoft Office Excel	3	01.09.2008 10:38
Нажатие клавиши	format	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	1	05.05.2008 15:25
Клавиатура, нажатие клавиши	Yogik™	Помощь студентам	4	21.11.2007 00:05

12.05.2009, 16:41	#1
Vladya Форумчанин Регистрация: 04.11.2008 Сообщений: 360	Форма не реагирует на нажатие клавиши Люди подскажите почему это может быть? Вроде все правильно пишу: Код: `procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 13 then ManualChoise; if key = 46 then DeleteItem; end;` а при запуске программы и после нажатия на клавишу ничего не происходит. Может такое быть из-за того что у меня прозрачная форма и убрана рамка? Мой скромненький сайт

12.05.2009, 17:04	#4
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	нет не так Владя, поставь бряки и посмотри происходит ли это событие вообще? а может какой компонент имеет фокус? Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.