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

Вниз

Форма-фрейм-форма   Найти похожие ветки 

 
Катерина ©   (2002-04-17 14:59) [0]

Добрый день! Нельзяли из фрейма обращаться к компонентам формы, на которую этот фрейм помещен?


 
Игорь Шевченко ©   (2002-04-17 15:05) [1]

День добрый,

Если Owner у Frame является формой, то можно.

С уважением,


 
Катерина ©   (2002-04-17 15:24) [2]

А как?


 
Игорь Шевченко ©   (2002-04-17 15:40) [3]

День добрый,

TMyForm(Owner).MyComponent...

или
TMyForm(Owner).FindComponent(ИмяКомпонента) AS ТипКомпонента)...

С уважением,


 
Игорь Шевченко ©   (2002-04-17 15:41) [4]

Вдогонку:

TForm(Owner).FindComponent ...

С уважением,


 
Катерина ©   (2002-04-17 16:30) [5]

Спасибо, огромное. Действительно получилось. Но как мне обратиться к свойствам и методам этого компонента? Например, из фрейма я хочу менять ProgressBar.Position, который находится в главной форме?

TForm(Owner).FindComponent.Position := ... не проходит.


 
Игорь Шевченко ©   (2002-04-17 17:05) [6]

День добрый, Катерина,

(TForm(Owner).FindComponent("ProgressBar1") AS TProgressBar).Position := Value;

Вместо ProgressBar1 надо поставить то имя того компонента, который у вас на форме :-)

С уважением,


 
Катерина ©   (2002-04-18 11:12) [7]

Все получилось. Спасибо. Столкнулась с такой закономерностью: в некоторых фреймах обращение к материнской форме выполняется по разному в начале и в конце подпрограммы. В начале действительно по Owner вызывается материнская форма, а в середине и в конце, как правило, - сам фрейм. Хотя это уже неважно, т.к. родительские компоненты можно описать в начале продпрограммы:

procedure TFrame_SaveTable.But_OKClick(Sender: TObject);
var I : integer;
ProcessBar : TProgressBar;
ProcessText : TEdit;
begin
ProcessText := Owner.FindComponent("ProcessText") AS TEdit;
ProcessBar := Owner.FindComponent("ProcessBar") AS TProgressBar;



 
Shaman_Naydak ©   (2002-04-18 11:44) [8]

> Катерина
Я так думаю, это все из-за того, что вы в методе оператор with используете и перекрываете область видимости. Используйте тогда Self.Owner



Страницы: 1 вся ветка

Текущий архив: 2002.04.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
4-94641
fag2000@ok.ru
2002-02-26 15:14
2002.04.29
Как отследить все события от мыши и клавиатуры посылаемые другому приложению


3-94287
dim-
2002-04-08 10:41
2002.04.29
Удаление в дереве


3-94308
Softmaster
2002-04-06 14:17
2002.04.29
база INTERBASE


7-94593
Андрей Татуков
2002-02-04 16:14
2002.04.29
Язык Windows


3-94330
IronHawk
2002-04-09 15:59
2002.04.29
Приветствую Мастеров ! Есть вопрс, Table1 ругаеться на базу,