맨위에 에디터
중간에 스플릿터
맨아래 디비그리드
이런식으로 놓았거든여.....

맨처음 formshow하면서 생성할때는 순서대로 잘 나오는데염.....
버튼을 눌러서 생성하면

스플릿터
에디터
디비그리드
이런식으로 생깁니다.-_-;;

왜그런지 해결방법좀.....
formshow하구...btnNewClick하구는 같은 짓을  똑같이 합니다.
근데......btnNewClick만 그래염.....하나 만들구 나서 부터는...ㅠㅠ;
소스 추가합니다.


////////////////////////////////////소스
procedure TForm1.btnNewClick(Sender: TObject);
begin
  with PageControl1 do
  begin
    dTabSheet := TTabSheet.Create(Self);
    with dTabSheet do
    begin
      PageControl := PageControl1;
      Caption := 'Query'+IntToStr(i+1);
    end;

    dRichEdit := TRichEdit.Create(Self);
    dRichEdit.Parent := dTabSheet;
    dRichEdit.Align := alTop;

    dSplitter := TSplitter.Create(Self);
    dSplitter.Parent := dTabSheet;
    dSplitter.Align := alTop;
    dSplitter.Cursor := crVSplit;

    dQuery := TQuery.Create(Self) ;

    dDataSource := TDataSource.Create(Self);

    dDBGrid := TDBGrid.Create(Self);
    dDBGrid.Parent := dTabSheet;
    dDBGrid.Align := alClient;
  end;
  PageControl1.ActivePage := dTabSheet;
  dRichEdit.SetFocus;
  dQuery.DatabaseName := 'bibong';
  dDBGrid.DataSource := dDataSource;
  dDataSource.DataSet := dQuery;
  inc(i);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  btnNewClick(nil);
end;