Не давать запускать другую форму по нажатию клавишы пока не закрыта запущенная ранее / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Не давать запускать другую форму по нажатию клавишы пока не закрыта запущенная ранее

3 сообщений из 3, страница 1 из 1

Не давать запускать другую форму по нажатию клавишы пока не закрыта запущенная ранее

#39717414

арт2010

Гость

На главной форме (которая всегда открыта) есть несколько второстепенных, которые запускаются по нажатию клавиш(ы) в модальном режиме, например:

Код: pascal

1.
2.
3.
4.
5.
6.
7.

if Msg.CharCode = VK_F2	then
 begin
   if (not Assigned(frmDiscount)) then
    begin
    Application.CreateForm(TfrmDiscount, frmDiscount);
    if frmDiscount.ShowModal = mrOk then
    ...

Код: sql

1.
2.
3.
4.

 if (Msg.CharCode = VK_F6) and (FLastKeyCode <> VK_CONTROL) and (FLastKeyCode <> VK_shift) then
  begin
     ...
     frmKolvo.ShowModal;

Проблема в том что все эти формы можно вызвать одну за другой и они будут отображаться одновременно, а мне нужно чтобы если вызовешь одну, следующую уже вызвать было нельзя, пока не будет закрыта первая. Можно это сделать как-нибудь изящно, не проверяя открыта ли какая-нибудь из вспомогательных форм (коих около 10)?
З.Ы. Проще прощения, если вопрос нубский

...

Рейтинг:

0 / 0

15.10.2018, 10:20

| Ответить | Цитировать | Написать

Не давать запускать другую форму по нажатию клавишы пока не закрыта запущенная ранее

#39717417

softwarer

Участник

Откуда: 127.0.0.1

Сообщения: 51 965

Рейтинг: 0 / 0

Вообще говоря, совершенно непонятно, какого фига клавиатурные нажатия обрабатываются задисейбленной главной формой в то время, когда открыта модальная. Да и судя по коду, их обработка сделана слишком уж нетривиально. Тем не менее, если нет желания сделать нормально, никто не мешает вставить if Screen.ActiveForm = MainForm...

...

Рейтинг:

0 / 0

15.10.2018, 10:26

| Ответить | Цитировать | Написать

Не давать запускать другую форму по нажатию клавишы пока не закрыта запущенная ранее

#39717430

арт2010

Гость

softwarer, спасибо

...

Рейтинг:

0 / 0

15.10.2018, 10:41

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&msg=39717417&tid=2040273]:	0ms
get settings:	9ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	164ms
get topic data:	8ms
get forum data:	2ms
get page messages:	28ms
get tp. blocked users:	1ms
others:	236ms

total:	471ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы