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

Ста кнопкам одно действие   Найти похожие ветки 

← →
pups   (2003-06-24 21:28) [0]

Здраствуйте, мне необходимо ста кнопкам присвоить одинаковую картинку. Как это сделать я пробовал так, но не получилось:
procedure pas;
var i:byte;
stroka,n:string;
begin
for i:=1 to 100 do
begin
str(i,N);
stroka:=speedbutton+N;
form1.stroka.glyph.loadfromfile("c:\1.bmp");
end;
end;

---

← →
Ipx-x   (2003-06-24 21:45) [1]

Если, создавал их в дизайне, то нужно было бы сразу назначить glyph. А если в ран-тайм, то предпочтительнее создать

Var MyButton: array [0..100] of TButton;
В этом случае проблема отпадет

---

← →
panov ©   (2003-06-24 22:14) [2]

см. FindComponent, но быстрее создавать массив объектов(Ipx-x (24.06.03 21:45))

---

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

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



Память: 0.45 MB
Время: 0.013 c