Возвращаемое значение ShowModal

← →
Чайник © (2010-04-05 15:08) [0]

Функция создает форму и вызывает ее ShowModal:

function AddNewPassport : TModalResult; begin Result := mrCancel; FNewPass := TFNewPass.Create(Application); try Result := FNewPass.ShowModal; finally FNewPass.Free; end; end;

На самой форме расположен TListBox, в зависимости от выбранной строки вызываются различные функции, возвращающие TModalResult:

procedure TFNewPass.btnOKClick(Sender: TObject); begin case lstKindPass.ItemIndex of 1: FNewPass.ModalResult := AddNewPassVessPress; 2: FNewPass.ModalResult := AddNewPassPipeline; ... else FNewPass.ModalResult := mrCancel; end; Close; end;

Перкд закрытием формы FNewPass.ModalResult содержит именно те значения, которые фозвращают вызываемые функции. Но в строке

Result := FNewPass.ShowModal;

в результат пишется исключительно mrCancel !

Что я делаю не так???

P.S. Я Чайник! Я Чайник! Я Чайник! Я Чайник!

← →
Игорь Шевченко © (2010-04-05 15:12) [1]

> Перкд закрытием формы FNewPass.ModalResult содержит именно
> те значения, которые фозвращают вызываемые функции

а как ты закрываешь форму ? :)

← →
icWasya © (2010-04-05 15:13) [2]

procedure TCustomForm.Close; var CloseAction: TCloseAction; begin if fsModal in FFormState then ModalResult := mrCancel //<<--!!!!!!!!!!!!!!!!!!!!!1 else ... end;

← →
Чайник © (2010-04-05 15:16) [3]

> Игорь Шевченко © (05.04.10 15:12) [1]
> а как ты закрываешь форму ? :)

else
FNewPass.ModalResult := mrCancel;
end;
Close; <<<<<<<<
end;

← →
Slym © (2010-04-05 15:17) [4]

icWasya © (05.04.10 15:13) [2]
Чайник © (05.04.10 15:08)
procedure TFNewPass.btnOKClick(Sender: TObject);
begin
case lstKindPass.ItemIndex of
1: FNewPass.ModalResult := AddNewPassVessPress;
2: FNewPass.ModalResult := AddNewPassPipeline;
...
else
FNewPass.ModalResult := mrCancel;
end;
//Close;
end;

← →
Anatoly Podgoretsky © (2010-04-05 16:03) [5]

Убери Close оно убивает ранее установленые значения, меняит их на Cancel

← →
Чайник © (2010-04-05 16:17) [6]

> Slym © (05.04.10 15:17) [4]

> Anatoly Podgoretsky © (05.04.10 16:03) [5]

Спасибо!

← →
Правильный$Вася (2010-04-05 16:59) [7]

присваивание модалрезалта само по себе закрывает форму

> 1: FNewPass.ModalResult := AddNewPassVessPress;

дерьмокод.

← →
Кибальчиш (2010-04-06 14:17) [9]

Плохиш указал причину, а ты что сказать то хотел?

Возвращаемое значение ShowModal Найти похожие ветки