Q&A

  • 동적생성에서 오브젝트가 안나타 나요
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 ..... 오류

뭐가 잘못 되었는지 알고 싶습니다.

그럼...
2  COMMENTS
  • Profile
    최용일 2004.02.02 18:23
    안녕하세요. 최용일입니다.

    컴포넌트의 부모를 설정하세요...

    Panel.Parent := ScrollBox;

    ^^ 항상 즐코하세요...

  • Profile
    김상균 2004.02.02 18:31



    너무 감사 합니다.