Работа с несозданным Memo

[Молоток]

Уважаемые специалисты.
Есть такая проблемка: по Timer1 создаются TTabsheet в которых создаются по одному TMemo. При нажатии Button1 значение Edit1 должно добавиться в Memo.
Может ли кто нибудь подсказать каким образом можно это осуществить?
Заранее спасибо за помщь.

[Sparkman]

Сообщение от Молоток

Уважаемые специалисты.
Есть такая проблемка: по Timer1 создаются TTabsheet в которых создаются по одному TMemo. При нажатии Button1 значение Edit1 должно добавиться в Memo.
Может ли кто нибудь подсказать каким образом можно это осуществить?
Заранее спасибо за помщь.

а мемы как у вас создаются? и как хранятся?

[Молоток]

begin//1
 with Q5 do
  begin//2
   Q5.Close;
   Q5.SQL.Clear;
   Q5.SQL.Add('Select Otp, Chat_Text from Chat');
   Q5.SQL.Add('where Prin='+#39+Label3.Caption+#39+'and status=1');
   Q5.Active:=true;
   Q5.Open;

   while not Q5.eof do
    begin//3
     etalon:=Q5.FieldByName('Otp').AsString;
     TabSheet:=TTabSheet.Create(GroupBox3);
     TabSheet.Caption:=etalon;
     TabSheet.PageControl := PageControl1;
     Memo:=TMemo.Create(PageControl1);
     Memo.Parent:=TabSheet;
     Memo.Lines.Add(Q5.FieldByName('Chat_Text').AsString);
     Memo.Color:=$00FFF2F2;
     Memo.Height:=198;
     Memo.Width:=760;
     Q5.Next
    end;//3
  end;//2
end;//1

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sparkman]

1) создайте массив TMemo как здесь например создаётся массив TEdit (все точно также, только тип другой);
2) либо ищите компонент типа TMemo, проверяете его родителя, и если родитель сейчас активен, то добавляете в это Memo текст (http://www.programmersforum.ru/showthread.php?p=771741)

[Молоток]

сделал вот так: TMemo(form1.PageControl1.ActivePage .FindComponent('Memo1')).Lines.Add( Edit6.Text), но выдает ошибку

[Sparkman]

Сообщение от Молоток

сделал вот так: TMemo(form1.PageControl1.ActivePage .FindComponent('Memo1')).Lines.Add(Edit6.Text), но выдает ошибку

Memo1 - это имя компонента, при создании вы не присваиваете имя созданным Memo, поэтому и возникает ошибка

[Молоток]

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
TMemo(form1.PageControl1.ActivePage .FindComponent('Memo')).Lines.Add(E dit6.Text);
end;
так тоже ошибку выдает...

[Sparkman]

Сообщение от Молоток

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
TMemo(form1.PageControl1.ActivePage .FindComponent('Memo')).Lines.Add(E dit6.Text);
end;
так тоже ошибку выдает...

   while not Q5.eof do
    begin//3
     etalon:=Q5.FieldByName('Otp').AsString;
     TabSheet:=TTabSheet.Create(GroupBox3);
     TabSheet.Caption:=etalon;
     TabSheet.PageControl := PageControl1;
     Memo:=TMemo.Create(PageControl1);
     Memo.Parent:=TabSheet;
     Memo.Lines.Add(Q5.FieldByName('Chat_Text').AsString);
     Memo.Color:=$00FFF2F2;
     Memo.Height:=198;
     Memo.Width:=760;
     Memo.Name := 'Memo1';
     Q5.Next
    end;//3

потом юзаете Memo1

[Молоток]

Спасибо Вам большое. Сильно выручили. Сделал вот так:

Control:= PageControl1.ActivePage.FindChildCo ntrol('memo');
if control<>nil then
TMemo(control).Lines.Add(Edit6.Text +' ('+DateToStr(Now)+' '+TimeToStr(Now)+')');

и все получилось.