TForm.OnActivate или . . .

← →
TrainerOfDolphins © (2006-04-21 10:33) [0]

Привет всем!
Маленький вопросик.
Есть главная форма fmMain и второстепенная форма fmDetail. Из модуля формы fmMain видно модуль формы fmDetail, но не наоборот.
Вызываем модально форму fmDetail из модуля fmMain (fmDetail.ShowModal). По закрытию fmDetail с формой fmMain необходимо провести некоторые действия. Вопрос: в каком обработчике их описать? fmMain.OnActivate после закрытия fmDetail не возникает (форма была показана модально).
Спасибо.

← →
Desdechado © (2006-04-21 10:47) [1]

я бы написал сразу за Detail.ShowModal
потому как именно туда попадет управление после закрытия detail

← →
AbrosimovA © (2006-04-21 10:47) [2]

В fmMain:

procedure ... begin fmDetail:=TfmDetail.Create(Application); if fmDetail.ShowModal = mrOK then begin //Необходимые действия end; fmDetail.Free; end;

В fmDetail:

procedure TfmDetail.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin ModalResult := mrOK; CanClose := true; end;

← →
balepa © (2006-04-21 10:49) [3]

Unit2
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ModalResult:= mrCancel;
end;

Unit1
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
if Form2.ModalResult = mrcancel then
ShowMessage("dddd");
end;

← →
TrainerOfDolphins © (2006-04-21 11:01) [4]

> Desdechado © (21.04.06 10:47) [1]
> я бы написал сразу за Detail.ShowModal
> потому как именно туда попадет управление после закрытия
> detail

Блин, гениально то, что просто :).
Какой же я... :)
Спасибо!

:) . Дрессировщик я...

TForm.OnActivate или . . . Найти похожие ветки