Форма-активатор

← →
AlexKainov (2003-09-09 11:18) [0]

Можно ли получить из активной формы имя формы, активизировавшей данную по ShowModal ?
Спасибо.

← →
ZEE (2003-09-09 11:22) [1]

передавай имя в переменную перед ShowModal

← →
Юрий Федоров (2003-09-09 11:49) [2]

Если Модальная форма перед показом была создана, и параметром ей была передана вызывающая форма, то она соответствует св-ву owner

procedure TForm1.Button1Click(Sender : TObject)
begin
Form2:=TForm2.Create(self);
Form2.ShowModal;
//В этот момент Form2.Owner = Form1;
Form2.Free;
end;

← →
Skier (2003-09-09 11:57) [3]

или
Form2:=TForm2.Create(???);
Form2.Tag := Integer(Form1);
Form2.ShowModal;
//......................
в Tag - указатель на Form1...

Форма-активатор Найти похожие ветки