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

← →
Antoxa2005 (2006-10-11 10:00) [0]

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

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

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

← →
clickmaker © (2006-10-11 10:11) [1]

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

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

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

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

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

if then else

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

← →
Antoxa2005 (2006-10-11 10:42) [3]

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

Типа того...

Подскажите, как правильно написать, что бы при ShowModal окно не Найти похожие ветки