Как можно сделать следующее:

← →
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]

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

Можно и так:
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;

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