Скачать: CL | DM;

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

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

---

← →
balepa ©   (2006-04-21 11:14) [5]

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


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

---

← →
TrainerOfDolphins ©   (2006-04-21 13:18) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c