Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Вниз
caption Найти похожие ветки
← →
race1 (2004-11-09 11:49) [0]я хочу изменить caption у как можно большего кол-ва контролов. в идеале было бы хорошо приводит все контролы к TControl и брать у него Caption. но когда я присваиваю этому заголовку значение компилер ругается что нет доступа к этому св-ву.
и если приведение TEdit"а к TButton"у и установка у него Caption (TButton(editcoontrol).Caption := "my cap") работает, то с TRadioButton"ом такое уже не прокатит :(
как бы можно одной строчкой менять заголовки у разных контролов?
← →
TUser © (2004-11-09 11:52) [1]
> и если приведение TEdit"а к TButton"у
Ой.
← →
race1 (2004-11-09 11:54) [2]>[1]
я сначала написал код, потом вижу, что такое приведение появилось, и что главное, оно работает :) я не специально так делал, честно
← →
ЮЮ © (2004-11-09 12:11) [3]Просто TControl.Caption - protected.
И для доступа к protected свойствам и метода следует объявить класс-наследник в своем модуле и приводя к его типу использовать их:
type
TControlAccess = class(TControl);
...
if Sender is TControl then
TControlAccess(Sender).Caption := "my cap";
← →
race1 (2004-11-09 12:24) [4]>ЮЮ
красиво, спасибо!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.092 c
