Поиск динамического Memo

[Fezilk]

Здравствуйте.

Есть форма, на которой лежит PageControl. В нем динамически создаются TabSheet (страницы).Пишу кое что типа чата, Имя TabSheet создается следующим образом:
"Tab" + номер канала.

Нужно найти Memo, которое лежит на активной TabSheet. Имя Memo = "Memo" + имя страницы (TabSheet).

Пожалуйста, помогите (своих мозгов не хватает, к сожалению).

[Kotofff]

Memo ведь тоже динамически создаешь ?
как им имена присваиваешь ?

[havok]

смотреть тут или тут

[Nester]

Можно найти нужный Memo

 Var I:Byte;
      M:TMemo;
  Begin
   For I:=1 To 10 Do
    Begin
     M:=FindComponent('Memo'+IntToStr(I)) As TMemo;
     If M<>NIL Then
      Begin
       M.Clear;
       M.Lines.Add('text memo'+IntToStr(I));
     End;
    End;

[Neeter]

Вы бы лучше TabSheet'ы и Memo загоняли в динамические массивы или в один массив типа запись:

...
type
 TChatPages = record
  _sheet: TTabSheet;
  _memo: TMemo;
 end;
...
var
 Form1: TForm1;
 ChatPages: array of TChatPages;
...

И не надо заморачиваться с именами, свойству Tag, у созданных TabSheet'ов и memo, присваивайте индекс в массиве.
А потом "найти Memo, которое лежит на активной TabSheet" можно просто:

 ChatPages[PageControl1.ActivePage.Tag]._memo.Lines.Add('text');

[Fezilk]

Спасибо всем, попробую последний способ.

Можно вопрос?

свойству Tag, у созданных TabSheet'ов и memo, присваивайте индекс в массиве.

как это сделать, и как загнать Memo в массив.

[Neeter]

Вот пример, на форме пустой PageControl и две кнопки, описан массив типа запись (как я вверху написал):

//Первая создает вкладку с memo на ней
procedure TForm1.bt_1Click(Sender: TObject);
begin
 SetLength(ChatPages, Length(ChatPages) + 1); //Устанавливаем длину массива на единицу больше его предыдущей длины
 ChatPages[Length(ChatPages) - 1]._sheet := TTabSheet.Create(Self); //Создаем вкладку
 With ChatPages[Length(ChatPages) - 1]._sheet do
 begin
  PageControl := PageControl1; //Присваиваем ей родителя
  Caption := Format('ChatWindow %d', [Length(ChatPages)]); 
  Tag := Length(ChatPages) - 1; //Присваиваем Tag равным индексу в массиве
 end;
 ChatPages[Length(ChatPages) - 1]._memo := TMemo.Create(Self); //Создаем memo
 With ChatPages[Length(ChatPages) - 1]._memo do
 begin
  Parent := ChatPages[Length(ChatPages) - 1]._sheet; //Присваиваем родителя: только что созданную вкладку
  //Тут просто изменяем вид memo в кладке
  Align := alClient;
  AlignWithMargins := true;
  Margins.Left := 10;
  Margins.Top := 10;
  Margins.Bottom := 10;
  Margins.Right := 10;
  Tag := Length(ChatPages) - 1; //Так же присваиваем Tag
 end;
end;

//Вторая показывает сообщение: индекс в массиве текущей вкладки и первую строчку в memo на текущей вкладке
procedure TForm1.bt_2Click(Sender: TObject);
begin
 if Length(ChatPages) = 0 then Exit; //Если вкладок вообще нет, то нечего и показывать сообщение, а то на ошибку напоремся

 //Показываем сообщение
 ShowMessage(Format('Index: %d; MemoFirstLine: %s', [PageControl1.ActivePage.Tag,
   ChatPages[PageControl1.ActivePage.Tag]._memo.Lines[0]]));
end;

[Fezilk]

спасибо =) но, к сожалению, такой способ не прокатывает.

if ChatPages[Form3.PageControl1.ActivePage.Tag]._memo.Name = 'MemoTab' + suin then
ChatPages[Form3.PageControl1.ActivePage.Tag]._memo.Text := 'asdasdasd';

при получении сообщения от отправителя с номером "suin" ничего не происходит, а должно быть тек: при получении текст в Memo изменяется на asdasdasad

Memo создается так:

 ChatPages[Length(ChatPages) - 1]._memo := TMemo.Create(Self); //Создаем memo
 With ChatPages[Length(ChatPages) - 1]._memo do
 begin
  Parent := Pan2; //Присваиваем родителя: только что созданную вкладку
  //Тут просто изменяем вид memo в кладке
  Tag := Length(ChatPages) - 1; //Так же присваиваем Tag
  Name := 'MemoTab' + Form3.Edit1.Text;
  Text := '';
  Align := alNone;
  Width := 490;
  Height := 80;
  Top := 40;
  Left := 8;
  Parent := Pan2;
  Anchors := [akLeft,akTop,akRight,akBottom];
  BevelEdges := [beLeft,beTop,beRight,beBottom];
 end;

в Form3.Edit1.Text номер получателя (текст в Edit1 изменяется при выборе получателя)

извиняюсь! сам виноват, все работате)