Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
ВнизДоступ к закрытым членам Найти похожие ветки
← →
DMN (2002-02-02 16:57) [1]Так можно было добраться до protected свойств и методов класса. Например, у TControl есть защищенное свойство Color. Чтобы менять цвет у любого контрола, не задумываясь, TEdit это, TLabel или еще кто, описываем в своем юните:
type
THackedControl=class(TControl)
end;
Затем просто приводим того потомка TControl, цвет которого мы хотим поменять, к нашему типу:
THackedControl(Label1).Color := clRed;
THackedControl(Edit1).Color := clBlue;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c