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;
하심 되겠네여...
김현수 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;
>
>