Тема: PageControl
Показать сообщение отдельно
  #2  
Старый 14.09.2008, 11:45
Аватар для Casper-Hacker
Casper-Hacker Casper-Hacker вне форума
Начинающий
 
Регистрация: 19.05.2008
Сообщения: 147
Версия Delphi: x
Репутация: 15
По умолчанию

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

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

Помогите пожалуйста Заранее огромное спасибо
Редактировать/Удалить сообщение


Код:
var Myrichedit: TRichedit;
mytab: TTabSheet;
begin
with PageControl1 do
begin
mytab:=TTabSheet.Create(Self); // Создание вкладки
mytab.PageControl:=PageControl1;
mytab.Caption:='Page '+IntToStr(PageCount); // Задание имени вкладки 'вкладка' + цифра вкладки
end;
Myrichedit:=TRichedit.Create(Self); //Создание Richedit
Myrichedit.Parent:=mytab;
Myrichedit.Align:=alClient;
end;

Ну думаю дальше разберешься сам...
Ответить с цитированием