Новые листы в одном окне [Delphi 7]

[BlackFishSQL]

Динамически создаю компонент Memo

procedure TForm1.N1Click(Sender: TObject);
begin
 
with TMemo.Create(Self) do
  begin
    Parent:=PageControl1.Pages[PageControl1.TabIndex];
    Name:='frame'+IntToStr(PageControl1.PageCount);;
    text:='';
    align:=alClient;
 end;
end

Тока тут Memo а ты переделай под RichEdit

[Valio]

Да надо просто ещё Parent компоненту задать. И всё будет работать.

 
....
RichEdit := TRichEdit.Create(Self);
RichEdit.Parent := Sheet;
....

[BlackFishSQL]

Ну и славненько!)

[_fynjy_]

вау, заработало

procedure TForm1.N11Click(Sender: TObject);
var Sheet:TTabSheet;
begin
with TRichEdit.Create(Self) do
  begin
  Sheet:=TTabSheet.Create(PageControl1);
Sheet.Caption:='Íîâàÿ ñòðàíèöà';
Sheet.PageControl:=PageControl1;
    Parent:=PageControl1.Pages[PageControl1.TabIndex];
    Name:='frame'+IntToStr(PageControl1.PageCount);
    text:='';
    align:=alClient;
    RichEdit1 := TRichEdit.Create(Self);
RichEdit1.Parent := Sheet;

 end;
end;

только почему то align:=alClient; не работает, создаёт свой размер

[_fynjy_]

RichEdit1.Align:=alClient; всё заработало, спасибо огромное))

[_fynjy_]

блин, возникла ошибка код такой

var Sheet:TTabSheet;
begin
with TRichEdit.Create(Self) do
begin
Sheet:=TTabSheet.Create(PageControl 1);
Sheet.Caption:='Íîâàÿ ñòðàíèöà'+IntToStr(PageControl1.Pag eCount);
Sheet.PageControl:=PageControl1;
Parent:=PageControl1.Pages[PageControl1.TabIndex];
RichEdit1 := TRichEdit.Create(Self);
RichEdit1.Parent := Sheet;
RichEdit1.Align:=alClient;
end;
end;

он в 1 TabSheet создаёт типа рамки за которую текст не может дальше идти, типа Align вот скрин

[Valio]

Ну ты блин отжёг

[_fynjy_]

давай, рассказывай, ну что поделать первый раз с ним работаю)
в програмке так же (

[Valio]

Выставь ширину и высоту РичЕдита. Это рамка - границы компонента.

[_fynjy_]

проблема в том что на rich1 он создаёт ещё один rich и закрывает 1, на последующих такого нет , потом если ещё нажать кнопку то накладывается ещё рич на предыдущий и получается что текст стирается