![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание компонент: использование свойств одного контрола в друго
Death_R © (2004-07-23 15:59:00)Создаю невизуальный компонент TVis в свойство которого передаю имя некоего компонента, который находится на форме., и при изменении этого свойства создаю компонент TGraficComtrol. Мне нужно передать в процедуры TGraficComtrol некоторые свойства компонента (который указан в свойстве невизуального компонента TVis), например его размер и клас.
Юрий Зотов (2004-07-24 10:37:00) [1]Зачем передавать, если они и так доступны в любом методе?
Что лучше - вот такой код:
procedure TMyGraphicControl.Proc(AWidth, AHeight, AClass, ...);
begin
... // Что-то делаем с параметрами
end;
или вот такой:
procedure TMyGraphicControl.Proc;
begin
if Comp <> nil then // Comp - ссылка на тот самый компонент
with Comp do
begin
... // Что-то делаем со свойствами Comp
end
end;
Варианты почти одинаковы, но второй немного быстрее.
Reindeer Moss Eater (2004-07-23 16:26:00) [2]Ему не получить, ему передать надо
Юрий Зотов (2004-07-23 16:23:00) [3]> Death_R (23.07.04 15:59)
А в чем проблема-то? Ссылка на компонент у Вас есть, что мешает получить его свойства?
Reindeer Moss Eater (2004-07-23 16:21:00) [4]Мне нужно передатьв процедуры TGraficComtrol некоторые свойства
Дык и передавай.
Параметры методов, процедур и функций служат для этого.
Death_R (2004-07-23 16:04:00) [5]Размер - это высота и ширина