Скачать: CL | DM;

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

← →
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"ы, кнопочки разные и пр.

---

← →
Игорь Шевченко ©   (2003-10-28 16:38) [6]

IdentToColor

---

← →
ZEE ©   (2003-10-28 17:17) [7]

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.96 c