Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

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

 
Alexei_III   (2002-04-19 13:29) [0]



 
Игорь Шевченко ©   (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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
4-2728
guliver
2002-02-28 01:43
2002.05.02
WM_GETTEXT, WM_SETTEXT


1-2618
anod
2002-04-20 11:02
2002.05.02
Свойство Style TFont


1-2532
Ежик2
2002-04-21 19:23
2002.05.02
А где берут модуль Match?


1-2565
vadim2
2002-04-19 11:45
2002.05.02
где посмотреть исходник функции Pos(Substr;S: string) ?


1-2540
Nicolas_
2002-04-18 11:16
2002.05.02
Поток -> DLL -> модальная форма. Как закрыть ее?