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]

>ЮЮ
красиво, спасибо!

caption Найти похожие ветки