Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Как можно сделать следующее:   Найти похожие ветки 

 
MAXHO-1   (2004-05-06 21:45) [0]

Ув. мастаки, у меня такой вопрос. Есть форма на которой  размешен PageControl. Надо чтоб например при нажатии кнопки создавалась новая страница на которой размещался бы новый елемент например RichEdit. При повторном нажатии чтоб создавалась еще одна страница с ричедит и т д.
Как это сделать?


 
Игорь Шевченко ©   (2004-05-06 21:57) [1]

Может быть, так ?

var
 Page: TTabSheet;
 ARichEdit: TRichEdit;
...
begin
 Page := TTabSheet.Create(Form1);
 Page.PageControl := PageControl;
 ARichEdit := TRichEdit.Create(Form1);
 ARichEdit.Parent := Page;
 .....
end;


 
MAXHO-1   (2004-05-06 22:19) [2]

Не TabSheet а PageControll именно.


 
Gero ©   (2004-05-06 22:36) [3]

По-моему, господин Махно-1 сам не знает чего хочет.


 
Palladin ©   (2004-05-06 22:45) [4]


> MAXHO-1   (06.05.04 22:19) [2]

Ты может разберешься сначала что же тебе привели в пример, а потом объяснишь свою фразу "Не TabSheet а PageControll именно". А то нарвешься на LMD от Игоря Шевченко :)


 
MAXHO-1   (2004-05-06 23:39) [5]

TabSheet и PageControl это одно и тоже?
Если не можете помочь, то и флудить тоже зря ненадо. В топике ведь не написано "Я тупой ламер хочу чтоб вы показали какие вы крутые програмеры..." ?


 
MAXHO-1   (2004-05-06 23:41) [6]

Ой сори, перепутал TabSheet c TabControl
Игорь Шевченко спасибо :)


 
Palladin ©   (2004-05-06 23:41) [7]

LMD... однозначно...


 
Palladin ©   (2004-05-06 23:42) [8]

Palladin ©   (06.05.04 23:41) [7] отменяется в свете MAXHO-1   (06.05.04 23:41) [6]


 
Gero ©   (2004-05-06 23:43) [9]


> Palladin ©   (06.05.04 23:41)

Не в тему получилось :)


 
Palladin ©   (2004-05-06 23:47) [10]

дык... не разберутся, а флудерами обзываются и в обиды уходят...
но все хорошо то что хорошо кончается, видимо не такой уж действенный этот синий значек :)


 
Германн ©   (2004-05-07 00:37) [11]

Можно и так:
begin
 with TRichEdit.Create(Form1) do begin
   Parent:=TTabSheet.Create(Form1);
   Align:=alClient;
   with TTabSheet(Parent) do begin
     PageControl := PageControl1;
     Caption:="TabSheet"+IntToStr(PageControl1.PageCount);
   end;
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.037 c
8-1078160093
__Alex__
2004-03-01 19:54
2004.05.23
Компонент для загрузки AVI из потока


6-1080823212
AkaSaint
2004-04-01 16:40
2004.05.23
В каком потоке выполняются обработчики событий TClientSocket?


4-1078193185
Walker
2004-03-02 05:06
2004.05.23
Поместить объект на рабочий стол


3-1083127093
Lamo_xxxx
2004-04-28 08:38
2004.05.23
Как перейти к следующе из найденных по какому-либо условию записи


14-1083627614
Мазут Береговой
2004-05-04 03:40
2004.05.23
Нам есть ещё чем гордиться!