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;

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