Q&A

  • 동적으로 생성된 부모 컴퍼넌트에 자식컴퍼넌트를 동적으로 생성시키고 싶은데..
Pagecontrol에 TabSheet를 동적으로 생성시키고 그 위에 또 StringGrid를 동적으로

얹으려고합니다.근데 각각 생성되는 StringGrid의 Parent는 TabSheet가 되는데..

이것이 동적으로 생성되므로 어찌 처리해야할지..알려주세요.^^

var i : Integer;

TSg : TStringGrid;

cur_grid : TStringGrid;

begin

for i:= 0 to 5 do

begin

TTabSheet.Create(self).PageControl := PageControl1;

PageControl1.Pages[i].Caption := '시트'+IntToStr(i);

TSG := TStringGrid.Create(Self);

with Tsg do

begin

Parent := {동적으로 생성되는 TabSheet의 parent를 어떻게 넣는지}

Name:= 'StringGrid';

Visible := True;

end;







end;





1  COMMENTS
  • Profile
    파도랑 2001.12.11 00:44
    Parent := PageControl1.ActivePage;



    하심 되겠네여...





    김현수 wrote:

    > Pagecontrol에 TabSheet를 동적으로 생성시키고 그 위에 또 StringGrid를 동적으로

    > 얹으려고합니다.근데 각각 생성되는 StringGrid의 Parent는 TabSheet가 되는데..

    > 이것이 동적으로 생성되므로 어찌 처리해야할지..알려주세요.^^

    > var i : Integer;

    > TSg : TStringGrid;

    > cur_grid : TStringGrid;

    > begin

    > for i:= 0 to 5 do

    > begin

    > TTabSheet.Create(self).PageControl := PageControl1;

    > PageControl1.Pages[i].Caption := '시트'+IntToStr(i);

    > TSG := TStringGrid.Create(Self);

    > with Tsg do

    > begin

    > Parent := {동적으로 생성되는 TabSheet의 parent를 어떻게 넣는지}

    > Name:= 'StringGrid';

    > Visible := True;

    > end;

    >

    >

    >

    > end;

    >

    >