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

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

← →
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;

---

← →
Radionov Alexey ©   (2003-02-12 09:36) [3]

>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);

---

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

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



Память: 0.45 MB
Время: 0.01 c