Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизКак определить из какой формы было вызвано текущее окно? Найти похожие ветки
← →
Игорь Шевченко (2002-04-19 13:31) [1]День добрый,
В общем случае никак.
С уважением,
← →
Alexei_III (2002-04-19 13:37) [2]У меня есть форма, которая может вызываться из двух других форм. Так вот вопрос, орпедлить какая из них вызвала эту самую форму?
← →
Wik (2002-04-19 13:38) [3]Можно при вызове окна передавать параметр - имя вызывающего окна
← →
Alx2 (2002-04-19 13:56) [4]У окна (если это форма) есть св-во tag. Перед вызовом его в этот tag можно занести номер вызывающей формы из нее же самой.
← →
Shaman_Naydak (2002-04-19 14:16) [5]У Screen"a есть Event OnForm Change.. Вот примерчик:
type
TForm1 = class(TForm)
procedure FormChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
OldForm: TForm;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormChange(Sender: TObject);
begin
if OldForm <> nil then
Screen.ActiveForm.Caption:=OldForm.Name;
OldForm:=Screen.ActiveForm;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveFormChange:=FormChange;
end;
← →
KSergey (2002-04-19 14:22) [6]Создаваемая форма, как я надеюсь, динамически содается? если да - то проще всего, на мой взгляд, Owned"ом задать ту форму, которая создала - и тогда это свойство можно почитать внутри создаваемой формы.
← →
arhelon (2002-04-19 14:37) [7]TForm(Owner).Name = форме которая вызвала
← →
Alexei_III (2002-04-19 15:03) [8]Решение найдено. Спасибо всем. (воспользовался решением от Alx2)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c