Как форме узнать кто ее вызвал

← →
oleiva (2003-02-12 09:31) [0]

Есть Форма_1, которая вызывается из других форм - то из Формы_2, то из Формы_3 - по нажатию соответсв кнопок в этих формах. Как Форме_1 узнать, какая форма ее вызвала?

← →
Владислав © (2003-02-12 09:34) [1]

Сообщать ее об этом из вызывающих форм.

← →
jack128 © (2003-02-12 09:35) [2]

ну мапример так :
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Tag := Integer(Self);
Form1.Show;
end;

в форме_1

Caption := TForm(Tag).Caption;

>oleiva (12.02.03 09:31)
TForm1 = class(TForm)
procedure SpecialShow(Sender : TForm);
end;

...........
procedure TForm1.SpecialShow(Sender : TForm);
begin
Show;
// параметр Sender = вызывающая форма
end;

В параметр Sender передавать вызывающую форму
например так: Form1.SpecialShow(Self);

Как форме узнать кто ее вызвал Найти похожие ветки