Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Вниз
Форма-фрейм-форма Найти похожие ветки
← →
Катерина (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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c
