![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание компонент
eugene_jin_t © (2003-01-09 11:02:00)Я наследую компонент от TComponent. Как сделать, чтобы этот компонент менял свойства родительской формы (ширину, высоту, стиль, рисование на канве и т.д.)?
Anatoly Podgoretsky (2003-01-09 15:25:00) [1]Calm © (09.01.03 13:07)
Собственник к этому дело никоим образом не причастен, это Parent вот тот прямо.
Набережных С. (2003-01-09 15:16:00) [2]GetParentForm
Calm (2003-01-09 13:07:00) [3]
> Owner.Width := 7; // И т.д.
Не совсем так.
Ведь владельцем компонента может быть не обязательно форма, но и любой другой TComponent. Поэтому правильнее будет подниматься по свойству Owner до тех пор, пока очередной Owner не будет TForm.
Ru (2003-01-09 13:03:00) [4]FEdit:TEdit;
function GetFEditWidth():integer;//получить
procedure SetFEditWidth(value:integer);//установить
Smithson (2003-01-09 11:29:00) [5]Owner.Width := 7; // И т.д.