Q&A

  • 에디터같은 플그램에서 새창띄울때.....빈페이지 생성하자나여....
제가 페이지 콘트롤과 ....리치에디트컴포를 이용해서....
버튼을 눌렀을때.....새로운 페이지를 생성하려고 하는데.....
잘 안되네염.....
새로운 탭쉬트 생성은 되는데.....나머지가 잘 안되염.....
첫번째 탭쉬트에는 리치에디트 컴포가 잘올라오거던여....
근데....두번째 창부터는 어떤 식으로 접근해야 하나염?
아시는분은 답변 주시면 감사하겠습니다....-_-;;
간단하지만 제가 만든 소스...(몇줄 안되지만...)올립니다.


procedure TForm1.Button1Click(Sender: TObject);
var
temp : TRichEdit;
begin
with PageControl1 do
begin
  with TTabSheet.Create(Self) do
    begin
      PageControl := PageControl1;
      Caption     := '새페이지'+inttostr(i);
    end;
    temp := TRichEdit.create(self);
    temp.parent := TabSheet1;
    temp.Align := alClient;
   inc(i);
end;


도와 주세염....-_-
2  COMMENTS
  • Profile
    최용일 2002.01.14 18:37
    안녕하세요. 최용일입니다.

    with문에서 탭쉬트를 생성하시지 마시고 변수하나 써서 생성하세요...

    procedure TForm1.Button1Click(Sender: TObject);
    var
        Temp: TRichEdit;
        TabSheet: TTabSheet;
    begin
        with PageControl1 do
        begin
            TabSheet := TTabSheet.Create( Self );
            with TabSheet do
            begin
                PageControl := PageControl1;
                Caption     := '새페이지'+ IntToStr( I );
            end;
            Temp := TRichEdit.create( Self );
            Temp.Parent := TabSheet;
            Temp.Align := alClient;
            Inc(I);
        end;
    end;

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

  • Profile
    김동수 2002.01.14 18:26
    ...