Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.006 c
1-2573
masik
2002-04-17 13:00
2002.05.02
MS DTHMLEdit OCX глючит или нет..?


3-2492
Dmitry V. Averuanov
2002-04-08 18:33
2002.05.02
Нужно


1-2622
Ищущий
2002-04-20 19:44
2002.05.02
Case-пакеты


14-2685
Tsatur Soft
2002-03-25 19:38
2002.05.02
Компаньоны


4-2720
alexey1
2002-02-28 15:25
2002.05.02
кнопки и иконки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский