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

Вниз

Помоготе разобраться в иерархии.   Найти похожие ветки 

 
sashas ©   (2003-04-16 12:29) [0]

В Delphi есть компонент TPaintBox. Он наследник TGraphicObject, в котором определен TCanvas. Но он является чем то вроде protected и к нему нельзя обратиться из программы, а в TPaintBox можно (он опубликован). Почему так?
Я хочу работать со всеми наследниками TGraphicObject (рисовать на нем)


 
MBo ©   (2003-04-16 12:37) [1]

у TGraphicControl Canvas protected, чтобы можно было ПРИ НЕОБХОДИМОСТИ в наследниках объявить это свойство как public.
Т.е. делая свой компонент, производный от TGraphicControl,
просто пишешь
...
public
Canvas:TCanvas;
...


 
Skier ©   (2003-04-16 12:42) [2]

>sashas
Можно ещё сделать так :

type
THackGraphicObject = class(TGraphicObject);

var
AGraphicObject : TGraphicObject;
begin
//.............
THackGraphicObject(AGraphicObject).Canvas.
//.............
end;


 
Mike_Goblin ©   (2003-04-16 13:13) [3]

>Но он является чем то вроде protected и к нему нельзя >обратиться из программы, а в TPaintBox можно (он опубликован). >Почему так?
Потому что, в Object Pascal нельзя понижать видимость членов класса, т.е объявив Canvas в секции public TGraphicControl ты даешь public доступ к этому свойству во всех наследниках, что не есть очень хорошо



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
11-91239
Vitalis
2002-07-21 12:08
2003.04.28
Графика в KOL


14-91533
Skier
2003-04-09 09:26
2003.04.28
Уважаемые автомобилисты !


1-91318
Val
2003-04-11 14:58
2003.04.28
Изменение стиля пера


14-91461
Почтальён Печкин
2003-04-09 13:09
2003.04.28
Письмо счастья


1-91297
northwind_new
2003-04-17 14:58
2003.04.28
Не могу найти нужную функцию