제가 페이지 콘트롤과 ....리치에디트컴포를 이용해서....
버튼을 눌렀을때.....새로운 페이지를 생성하려고 하는데.....
잘 안되네염.....
새로운 탭쉬트 생성은 되는데.....나머지가 잘 안되염.....
첫번째 탭쉬트에는 리치에디트 컴포가 잘올라오거던여....
근데....두번째 창부터는 어떤 식으로 접근해야 하나염?
아시는분은 답변 주시면 감사하겠습니다....-_-;;
간단하지만 제가 만든 소스...(몇줄 안되지만...)올립니다.
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;
도와 주세염....-_-
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;
^^ 항상 즐코하세요...