프로그램 실행상태에서
SpeedButton1 ~ SpeedButton18 까지
SpeedButton1 에 image1의 그림으로
SpeedButton2 에 image2의 그림으로
: :
: :
SpeedButton17 에 image17의 그림으로
SpeedButton18 에 image18의 그림으로
For문을 이용해서 넣고 싶은데요.
SpeedButton[count].glyph := image[count].picture;
이렇게 할수도 없고...
----------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var count: integer;
begin
for count:=0 to list1.items.count-1 do begin
// 궁금한 것들...
end;
end;
----------------------------------------------------
> 프로그램 실행상태에서
>
> SpeedButton1 ~ SpeedButton18 까지
>
> SpeedButton1 에 image1의 그림으로
> SpeedButton2 에 image2의 그림으로
> : :
> : :
> SpeedButton17 에 image17의 그림으로
> SpeedButton18 에 image18의 그림으로
>
> For문을 이용해서 넣고 싶은데요.
>
> SpeedButton[count].glyph := image[count].picture;
>
> 이렇게 할수도 없고...
> ----------------------------------------------------
>
> procedure TForm1.Button1Click(Sender: TObject);
>
> var count: integer;
>
> begin
> for count:=0 to list1.items.count-1 do begin
>
> // 궁금한 것들...
>
> end;
> end;
> ----------------------------------------------------
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i :integer;
cmp : TComponent;
begin
for i := 1 to 10 do begin
cmp := FindComponent('SpeedButton' + IntToStr(i));
if cmp = nil then continue;
(cmp as TSpeedButton).NumGlyphs := 2;
(cmp as TSpeedButton).Glyph.LoadFromFile('Img' + IntToStr(i)+ '.bmp');
end;
end;
이렇게 하시면 대충 원하시는데로는 되겠네요
그리고 img1.bmp .... img10.bmp 는 현제 디렉토리에 있어야 겠구요.
프리랜서 유효종.