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

Вниз

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;

---

← →
JibSkeart ©   (2002-03-13 09:47) [3]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.012 c