[mskvkin]

У меня есть PageControl мне надо чтобы при нажатии кнопки в нем создавались вкладки во время работы программы при этом колличество вкладок не ограничено и на вкладках должен находится RichEdit

И каким образом мне необходимо обращатся к richedit из главного меню (к примеру сделать вырезать, копировать, вставить) эти действия я делаю когда знаю имя richedit а в данном случае насколько я понимаю имя я не буду знать

Помогите пожалуйста Заранее огромное спасибо

[san-46]

Код:

type
  TForm1 = class(TForm)
  ...
    Edit : TRichEdit;
    procedure PageControl1Change(Sender: TObject);
  ...
  end;

procedure TForm1.Button1Click(Sender: TObject);
var 
  ts : TTabSheet;
  RE : TRichEdit;
begin
  ts := TTabSheet.Create(SELF);
  ts.PageControl := PageControl1;
  ts.Caption := ''; //надпись
  RE := TRichEdit.Create(SELF);
  RE.Parent := ts;
  RE.Align := alClient;
  ts.Tag := Integer(RE);

  PageControl1.ActivePage := ts; //если надо
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  Edit := TRichEdit(PageControl1.ActivePage.Tag);
  //Edit - компонент на текущей закладке после переключения на нее
  //к нему и надо применять все акции (выделить, копировать, вставить...)
end;