Вниз
Скачать: CL | DM;

Не модальная форма со свойствами модальной   Найти похожие ветки 

 
Sectey ©   (2003-01-28 17:03) [0]

Уважаемые мастера.
Передомной стоит задача, всю голову сломал не подскажите мне.
Задача: Необходимо что бы форма не потеряла фокус, нельзя было перйти перейти от одной формы проекта к друго (как модальная), из программы отображать и скрывать эту форму.
Пример:
Вызвал процедуру Lockup - отобразилась форма, заблокировав действия пользователя.
Вызвал процедуру UnLockup - разблокировал работу


 
NickBat ©   (2003-01-28 17:20) [1]

Пока открыта модальная форма работа основной программы приостановиться. Так, что только из этой модальной формы и вызывай закрытие.
Но вопрос очень "мутный".


 
Dms   (2003-01-28 17:28) [2]

Лихо загнул, непонятно зачем только. Заблокировать действия пользователя с твоей формой можно кучей других способов. А если уж приперло сделать именно так, то создай поток, который будет слать модальной форме сообщения WM_CLOSE. Только этот способ далеко не самый лучший способ блокировки.


 
Sectey ©   (2003-01-28 17:30) [3]

Мне нужно чтобы поле вызова моей процедуры LockUp данная форма не могла потерять фокус, это как минимум.


 
Dms   (2003-01-28 17:33) [4]

Просто заблокируй мышь для своей программы (поставь ловушку), а в анЛок снимай ее.


 
Sectey ©   (2003-01-28 17:35) [5]

А на клаву то же ловушку ставить?


 
Dms   (2003-01-28 17:40) [6]

да ! 2 ловушки и не надо парится ни с какими окошками


 
Sectey ©   (2003-01-28 17:59) [7]

Если не сложно простенький пример


 
Переяслов Григорий ©   (2003-01-28 18:06) [8]

Как вариант:

TForm1.Deactivate(. . .);
Begin
SetFocus;
end;


 
D-NICKNAME ©   (2003-01-28 18:38) [9]

Мож я чё не понимаю, но как насчёт поиграться со свойством Enabled? У меня была похожая задача и всё работало. Не ставил никакие ловушки - Боже упаси!!! :-)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c
4-15992
markers
2002-12-24 13:43
2003.02.06
Как вставить иконку левого приложения имея от него только caption


14-15903
Z@PODLO
2003-01-20 19:37
2003.02.06
Работа с текстом в Delphi 6


6-15779
Kon2002
2002-10-30 13:34
2003.02.06
WinXP+Internet


1-15639
Fill
2003-01-29 13:37
2003.02.06
Опять Delphi - Excel


14-15833
samson
2003-01-22 09:10
2003.02.06
RXLib275




   Наверх