Форум: "Основная";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];
Вниз
Как форме узнать кто ее вызвал Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c
