VPF::Реакция кнопки по enter - Форум программистов

IvanVL

Дата 31.10.2005, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 31.10.2005

Репутация: нет
Всего: нет

Как сделать так чтобы по enter кнопка вдавливалась и возвращалась как при нажатии мышью, а то если просто свойство Defaul поставить в True, то визуально с ней ничего не происходит, хотя процедура выполняется.

_hunter

Дата 31.10.2005, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

убери Default и по OnKeyDown опускай ее а по OnKeyUp поднимай

--------------------

Tempora mutantur, et nos mutamur in illis...

IvanVL

Дата 2.11.2005, 02:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 31.10.2005

Репутация: нет
Всего: нет

Цитата(_hunter @ 31.10.2005, 12:55)

убери Default и по OnKeyDown опускай ее а по OnKeyUp поднимай

Может я что-то не понял, но после того как я сделал как сказал _hunter работает только процедура KeyUp, для enter, для остальных клавиш обе процедуры.

Alexeis

Дата 2.11.2005, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

У кнопки реально OnKeyDown для Enter не вызывается
Надо перехватить событие WM_KEYDOWN

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

IvanVL

Дата 3.11.2005, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 31.10.2005

Репутация: нет
Всего: нет

Цитата(alexeis1 @ 2.11.2005, 10:12)

У кнопки реально OnKeyDown для Enter не вызывается
Надо перехватить событие WM_KEYDOWN

А как это делать smile

Alexeis

Дата 3.11.2005, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Нужно создать наследника Tbutton скажем

Код


TMybutton = class(Tbutton)
public
  procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;


.....

procedure TMybutton.WMKeyDown(var Message: TWMKeyDown);
Begin
   if message.CharCode = VK_RETURN
   then
     ....
   else
     inherited;
end;

Это прехват события WM_KEYDOWN.

--------------------

Rrader

Дата 5.11.2005, 05:58 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

А чтобы "утопить" кнопку:

Код


Button1.Perform(BM_SETSTATE, 1, 0);

Отпустить:

Код


Button1.Perform(BM_SETSTATE, 0, 0);

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »