Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TForm.OnActivate или . . .

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

TrainerOfDolphins (2006-04-21 13:18:00) [1]
:) . Дрессировщик я...

balepa (2006-04-21 11:14:00) [2]

> TrainerOfDolphins © (21.04.06 11:01) [4]

Тренеру дельфинов простительно :)

TrainerOfDolphins (2006-04-21 11:01:00) [3]

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

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

balepa (2006-04-21 10:49:00) [4]
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;

Desdechado (2006-04-21 10:47:00) [5]
я бы написал сразу за Detail.ShowModal
потому как именно туда попадет управление после закрытия detail

AbrosimovA (2006-04-21 10:47:00) [6]
В 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;

Наверх

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