Преобразование строки в название класса

← →
AAZ72 (2003-10-28 15:00) [0]

Ув. Мастера! Как преобразовать строку в название класса, например, "Button1" в объект типа TButton. Поясню, необходимо организовать доступ к компонентан таким образом "Button"+Index

Заранее благодарю

← →
Palladin © (2003-10-28 15:14) [1]

Это не название класса, это наименование объекта

см. TComponent.FindComponent

← →
ZEE © (2003-10-28 15:19) [2]

TButton(FindComponent("Button"+IntToStr(i))).Caption:="батон №"+IntToStr(i);
:)

← →
AAZ72 (2003-10-28 15:48) [3]

Благодарю за помошь!

А как быть в данном случае...?

var col: TColor;
begin
col:= TColor(FindComponent("clRed")); // или необходимо
// исп-ть FindClass
Panel1.Color:= col;
end;

не совсем работает
Заранее Благодарю

← →
Palladin © (2003-10-28 16:01) [4]

учите матчасть

← →
TUser © (2003-10-28 16:35) [5]

clRed - константа, а не компонент. FindComponent ищет всякие VCL"ы, кнопочки разные и пр.

IdentToColor

> AAZ72 (28.10.03 15:48) [3]
> А как быть в данном случае...?
> var col: TColor;
> begin
> col:= TColor(FindComponent("clRed")); // или необходимо
> // исп-ть FindClass
> Panel1.Color:= col;
> end;
>
> не совсем работает
> Заранее Благодарю

???
а Panel1.Color:=clRed; че не подходит?

Преобразование строки в название класса Найти похожие ветки