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

[_fynjy_]

Ребят, нужна помощь, как сделать так чтобы можно было создавать 2 листа и больше и чтобы выглядели так:
http://savepic.net/1464356.png

Какой компонент надо выбрать, куда применить и что прописывать?

P.S работаю с RichEdit

[BlackFishSQL]

Попробуй PageControl на вкладке win 32! А что бы листы создавать щёлкаешь на него правой кнопкой и выбирай newpage! а потом толькой caption прописывавай ''лист n'!
Как-то так наверно!)

Только если хочешь чтобы твои компоненты внутри PageControl были перетаскивай их в TreeView

[_fynjy_]

Ага, понял, спасибо, а что в кнопке прописать чтобы пользователь создавал новую страницу?

[BlackFishSQL]

Незнаю увы!(
А попробуй что-то типа этого!

procedure TForm1.Button1Click(Sender: TObject);
 var Sheet:TTabSheet ;
      n:byte; //кол. твоих вкладок что бы в дальнейшим они отображались как лист1..2..3..4 
begin
inc(n);
Sheet:=TTabSheet.Create(PageControl1);
Sheet.Caption:='Новая страница'+IntToStr(n);
Sheet.PageControl:=PageControl1;
end;

Если не работает я бессилен!(

[_fynjy_]

ага, TabSheet он создаёт а RichEdit нет(

[Valio]

Сообщение от _fynjy_

ага, TabSheet он создаёт а RichEdit нет(

Ну так сам он и не будет создаваться. Напише тоже код его создания.

[_fynjy_]

Я не знаю как написать так чтобы он создавался именно в TabSheet а не на форме

[Valio]

Сообщение от _fynjy_

Я не знаю как написать так чтобы он создавался именно в TabSheet а не на форме

ну вот напиши как ты его создаешь вообще. Вместе с ТабШитом

[BlackFishSQL]

procedure TForm1.Button1Click(Sender: TObject);
 var Sheet:TTabSheet ;
      n:byte; //кол. твоих вкладок что бы  они отображались как  лист1..2..3..4
      RichEdit:TRichEdit; 
begin
inc(n);
Sheet:=TTabSheet.Create(PageControl1);
Sheet.Caption:='Новая страница'+IntToStr(n);
Sheet.PageControl:=PageControl1;
RichEdit:=TRichEdit.Create(form1)//что-то с этой строкой нада мутить! Может вместо
Create(form1) нада Create(PageControl)
end;

Извини чем мог тем помог!(

[_fynjy_]

procedure TForm1.Button1Click(Sender: TObject);
 var Sheet:TTabSheet ;
      n:byte; //кол. твоих вкладок что бы в дальнейшим они отображались как лист1..2..3..4 
begin
inc(n);
Sheet:=TTabSheet.Create(PageControl1);
Sheet.Caption:='Новая страница'+IntToStr(n);
Sheet.PageControl:=PageControl1;
end;

он выдаёт стр 185 и не создаёт Rich

Valio,
может типо такого TTabSheet:=TRichEdit.Create; ?
но это не работает, с таким компонентом я 1 раз сталкиваюсь и не знаю как написать