Скачать: CL | DM;

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

← →
Alessio2003   (2003-02-18 21:47) [0]

Здравствуйте!
Я пишу такой код:

type
TForm = class(TForm)
TextP: TPageControl;
...
var num:cardinal;
...
NewPageName:="Number"+inttostr(num);
with TTabSheet.Create(Self) do
begin
PageControl.Name:=NewPageName;
PageControl:=TextP;
Caption:="123";
end;

with TMemo.Create(Self) do
begin
Parent:=... ;


end;

Что нужно написать в Parent, если хочу, чтобы им была только что созданная страничка в PageControl"е ? И правильно ли я создаю новый Memo?

---

← →
Романов Р.В. ©   (2003-02-18 22:02) [1]

var
t: TTabSheet;

t := TTabSheet.Create(Self)
with t do
begin
PageControl.Name:=NewPageName;
PageControl:=TextP;
Caption:="123";
end;

with TMemo.Create(Self) do
begin
Parent:=t;


end;

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.01 c