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

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

Игнорировать нажатие

zzet ©   (2002-08-12 21:23:00) 

Мастера, что-то запутался, как сделать что бы BitBtn находясь в фокусе, не реагировала на нажатие Enter?
Form1.KeyPreview = true;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=VK_RETURN then Key := 0;
end;неработает Ж:-((
Так же неработает и обработчик на BitBtn.KeyDown
подскажите, плз...

---

zzet   (2002-08-13 09:54:00) [1]

Благодарю. Пример by Ученик работает. Спасибо.

---

Ученик   (2002-08-12 22:16:00) [2]

procedure CMDialogKey(var Message : TCMDialogKey); message CM_DIALOGKEY;

procedure TForm1.CMDialogKey(var Message : TCMDialogKey);
begin
if Message.CharCode = VK_RETURN then
Message.CharCode := 0;
inherited
end;

---

AL2002   (2002-08-12 21:49:00) [3]

А кейпресс на битбатоне?

---

Наверх