type
TMyImg = record
Panel : TPanel;
Img : TWebImage;
TIT : TLabel;
end;
.......
public
{ Public declarations }
ShowImg : array of TMyImg;
......
with ShowImg[i] do
begin
Panel := TPanel.Create(img_scroll);
Panel.Left := SPACE_W+(TW * j);
Panel.Top := SPACE_H+(TH * k);
Panel.Height := (MARGIN_H*2)+IMG_H+LABEL_MARGIN_H+LABEL_H;
Panel.Width := (MARGIN_W*2)+IMG_W;
IMG := TWebImage.Create(img_scroll);
IMG.Left := Panel.Left + SPACE_W;
IMG.Top := Panel.Top + SPACE_H;
IMG.Height := IMG_H;
IMG.Width := IMG_W;
IMG.LoadFromURL('http://www.delphi.co.kr/images/top.gif');
TIT := TLabel.Create(img_scroll);
TIT.Caption := 'top.gif';
TIT.Left := Panel.Left + SPACE_W;
TIT.Top := IMG.Top+IMG.Height+LABEL_MARGIN_H;
Panel.Visible := true;
IMG.Visible := true;
TIT.Visible := true;
end;
동적 생성한 오브젝트를 ScrollBox 위에 나오게 하고 싶은데 생성이 안되는 것인지, 화면에 나오지를 않네요. 그리고 프로그램 종료를 하면 오류가 나오고요.
Access Violation ..... 오류
뭐가 잘못 되었는지 알고 싶습니다.
그럼...
컴포넌트의 부모를 설정하세요...
Panel.Parent := ScrollBox;
^^ 항상 즐코하세요...