Обратится к объекту во вкладках

[Kib]

В общем создаю вкладки с memo внутри таким образом:

procedure TMainForm.MenuFNewClick(Sender: TObject);
var mymemo: TMemo;
    mytab: TTabSheet;
begin
with MainPage do
begin
mytab:=TTabSheet.Create(Self);
mytab.PageControl:=MainPage;
mytab.Caption:='Page '+IntToStr(PageCount);
end;
mymemo:=TMemo.Create(Self);
mymemo.Parent:=mytab;
mymemo.Align:=alClient;
end;

Как можно обратится к одной из memo, скажем вставить в него какой нибудь текст? Заранее благодарен.

[Kotofff]

При создании присваивай имя для memo и "общайся" с ним потом как хочешь ...

[Kib]

Можно узнать как?

[vovk]

можно так,

var
     mytab: TTabSheet;
     i:integer;
    str:String;
    ok_:Boolean;
begin
ok_:=False;
mytab:=nil;
i:=0;
WHILE  (mytab=nil) and (i<MainPage.ControlCount) do
begin
 if (MainPage.Controls[i] is TTabSheet) then
if (MainPage.Controls[i] as TTabSheet).Caption='Page 2' then
 mytab:=  (MainPage.Controls[i] as TTabSheet);
inc(i);
 end;
 i:=0;
 if mytab<>nil then
WHILE not  ok_ and (i<=mytab.ControlCount ) do
begin
 if (mytab.Controls[i] is TMemo) then
begin
(mytab.Controls[i] as TMemo).Text:='нашол';
ok_:=true;
end;

inc(i);
 end;
end;

но Kotofff прав по имени легче будет

procedure TMainForm.MenuFNewClick(Sender: TObject);
var mymemo: TMemo;
    mytab: TTabSheet;
begin
with MainPage do
begin
mytab:=TTabSheet.Create(Self);
mytab.NAME:='Page'+IntToStr(PageCount);
mytab.PageControl:=MainPage;
mytab.Caption:='Page '+IntToStr(PageCount);
end;
mymemo:=TMemo.Create(Self);
mymemo.NAME:='memo_'+IntToStr(mainpage.PageCount);
mymemo.Parent:=mytab;
mymemo.Align:=alClient;
end;

[Kib]

при таком варианте:

procedure TMainForm.MenuFNewClick(Sender: TObject);
var mymemo: TMemo;
    mytab: TTabSheet;
begin
with MainPage do
begin
mytab:=TTabSheet.Create(Self);
mytab.NAME:='Page '+IntToStr(PageCount);
mytab.PageControl:=MainPage;
mytab.Caption:='Page '+IntToStr(PageCount);
end;
mymemo:=TMemo.Create(Self);
mymemo.NAME:='memo_ '+IntToStr(PageCount);
mymemo.Parent:=mytab;
mymemo.Align:=alClient;
end;

как можно обратится к memo?
пробовал так:

memo_1.Lines:='текст';

ругается на не существующий объект

[vovk]

 if (self.FindComponent('memo_1') is Tmemo)  then
  (self.FindComponent('memo_1') as Tmemo).Text:='safas';

[Kib]

Все получилось. Спасибо большое!