![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как скрыть попап меню
товарищ вася © (2009-05-08 13:12:00)Как скрыть попап меню, после Popup события?
Юрий Зотов (2009-05-10 17:06:00) [1]Вообще, давно подмечено - чем "оригинальнее" (читай - вычурнее) интерфейс, тем действительно больше геморроя. Причем, у пользователей.
товарищ вася (2009-05-10 12:13:00) [2]Чем ESC не подходит? И гемороя меньше....
Скорее так и будет, и гемороя действительно меньше)
{RASkov} (2009-05-10 10:01:00) [3]> [9] товарищ вася (10.05.09 02:54)
Можно попробовать следующее:
Добавить таймер. На его событие сделать проверку нажатия клавиш и если нужные остановить таймер и выполнить EndMenu(т.е. лучше проверить результат функции EndMenu и при успехе остановить таймер, имхо) Соот-но на OnPopup PopupMenu включать таймер....
Хотя я не уверен за правильность варианта в данном разделе форума....
и еще нужно придумать как его(таймер) выключать в других случаях (закрытия) попапа....
А вообще странное какое-то желание сочетания кнопок закрытия попапа..... Чем ESC не подходит? И гемороя меньше....
товарищ вася (2009-05-10 02:54:00) [4]
> попробуй EndMenuPopup
Вместо EndMenu взять EndMenuPopup?
такой функции вообще нет.
И нет в этом необходимости, EndMenu работает.
вопрос в другом, в каком обработчике писать
if (ssctrl in shift) and (key=VK_SPACE) then EndMenu;
?
Совесть ДМ (2009-05-09 23:23:00) [5]попробуй EndMenuPopup
товарищ вася (2009-05-09 22:21:00) [6]
> Что не ясно, ...как и что пробовал?
procedure TForm1.FormKeyDown(
Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssctrl in shift) and (key=VK_SPACE) then EndMenu;
end;
Почему не работает?
Я так понял в EndMenu, то что надо.
Единственное что приходит в голову: пишу не в тот обработчик ?
turbouser (2009-05-09 03:14:00) [7]Удалено модератором
Германн (2009-05-09 01:39:00) [8]Удалено модератором
Машкин Э. З. (2009-05-09 01:26:00) [9]Удалено модератором
Примечание: Правила чтим
{RASkov} (2009-05-09 01:14:00) [10]> [2] товарищ вася (08.05.09 14:52)
Что подробнее? Вопрос из двух с половиной слов. Таков и ответ.)
Что не ясно, ...как и что пробовал?
товарищ вася (2009-05-08 14:52:00) [11]Ну а если поподробнее?
{RASkov} (2009-05-08 13:44:00) [12]EndMenu