|
#1
|
|||
|
|||
Срочно помогите
У меня есть PageControl мне надо чтобы при нажатии кнопки в нем создавались вкладки во время работы программы при этом колличество вкладок не ограничено и на вкладках должен находится RichEdit
И каким образом мне необходимо обращатся к richedit из главного меню (к примеру сделать вырезать, копировать, вставить) эти действия я делаю когда знаю имя richedit а в данном случае насколько я понимаю имя я не буду знать Помогите пожалуйста Заранее огромное спасибо |
#2
|
|||
|
|||
Код:
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; Не забывайте делать резервные копии |