TPagecontrol?

← →
Nuce (2002-03-13 02:53) [0]

Доброй ночи.Проблема вот в чём: Создаю такую штуку
with TTabSheet.Create(PageControl1) do
begin
PageControl := PageControl1;
Name :=str;
Caption :=str;
end;
А как создать на очередном TabSheet edit например?

← →
MBo © (2002-03-13 08:03) [1]

var ts:TTabSheet;
ed:tedit;
begin
ts:= TTabSheet.Create(PageControl1);
with ts do begin
PageControl := PageControl1;
Name :="ts1";
Caption :=name;
end;
ed:=tedit.create(ts);
ed.parent:=ts;

← →
EugeneT © (2002-03-13 08:40) [2]

NewTab := TTabSheet.Create(PageControl1);

with NewTab do
begin
PageControl := PageControl1;
Name :=str;
Caption :=str;
end;

with TEdit.Create(NewTab) do
begin
...
end;

А помойму проще
Кликаещь по PageControl правой кнопкой добавляещь странички а потом на них
делаещь что хочешь

TPagecontrol? Найти похожие ветки