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

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

Подскажите, как правильно написать, что бы при ShowModal окно не [D7, WinXP]


Antoxa2005 ©   (2006-10-11 10:00:00) 

При нажании кнопки на форме Form1 происходит IF Form2.ShowModal=mrYes Then ...

При двойном нажатии мыши по форме Form2 ModalResult:=mrYes

Все работает нормально, но если просто открыть форму Form2.ShowModal и выполнить двойное нажати, то форма закрывается и возвращает ModalResult:=mrYes, но этого не надо т.к. вызов был не для получения значени, а просто была открыта форма.
Подскажите, как избежать такой ситуацтии. Т.е. когда IF Form2.ShowModal=mrYes Then ...
, а если Form2.ShowModal, то обработать двойное нажати как-то по другому, например свернуть форму?


Antoxa2005   (2006-10-11 10:42:00) [1]


> ЧЁ, похмелье с утра?

Типа того...


Dmitrij_K   (2006-10-11 10:13:00) [2]


> одскажите, как избежать такой ситуацтии. Т.е. когда IF Form2.
> ShowModal=mrYes Then ...
> , а если Form2.ShowModal, то обработать двойное нажати как-
> то по другому, например свернуть форму?

Обрабатывать событие OnDblClick у Form2.

> то обработать двойное нажати как-то по другому

if then else

PS
ЧЁ, похмелье с утра?


clickmaker   (2006-10-11 10:11:00) [3]

какая-то хитрая логика...
ну передавай параметр в форму, который будет говорить, нужно тебе это Yes или нет
Form2DoubliClick()
begin
  if (Param = 0) then ModalResult := mrYes else Self.WindowState := wsMinimized;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо