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

← →
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;
В этом случае проблема отпадет

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

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