Главная страница
    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.004 c
4-2721
alexey1
2002-02-27 12:41
2002.05.02
WIN API


1-2623
Ivan Voronov
2002-04-20 11:05
2002.05.02
Шаблоны/регулярные выражения в Delphi


4-2723
cok11
2002-02-27 13:28
2002.05.02
Не фурычит!


14-2651
pierre
2002-03-26 17:59
2002.05.02
Ms-dos


1-2617
Афоня
2002-04-18 13:31
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский