[Snoname]

Как организовать поиск нужной формы по свойству Caption, и в ней добавить данные в Memo, формы созданы динамически!
Формы созданы таким образом:

Код:

1 2 3

Application.CreateForm(TForm2, Form2); Form2.Caption:='У всех форм разное название' ; Form2.Show;

Как например найти форму с названием "Форма 1" и добавить в ней данные в memo?

Заранее большое спасибо!

[dr. F.I.N.]

Толчек в нужном направлении:

Код:

1 2 3 4 5 6 7

var   i: Integer; begin   for i := 0 to application.ComponentCount - 1 do   if application.Components[i] is TForm then   ShowMessage((application.Components[i] as TForm).Caption); end;

[lmikle]

Попробуй через FindChildWindow. Если не поможет, то придется делать фабрику с запоминанием созданных форм.

[nixel]

удалено.
10сим.

[Snoname]

Сообщение от dr. F.I.N.

Толчек в нужном направлении:

Код:

Спасибо форму вроде находит, но как обратиться к memo на найденой форме?

[Demonuka]

Думаю, примерно аналогично...

Код:

1 2 3 4 5 6 7 8 9 10 11

var MyForm: TForm; ..... begin  for i := 0 to application.ComponentCount - 1 do   if application.Components[i] is TForm then     if (application.Components[i] as TForm).Caption='То что нужно' then begin       MyForm:=application.Components[i] as TForm;       for j := 0 to MyForm.ComponentCount - 1 do          if MyForm.Components[j] is TMemo then              (MyForm.Components[j] as TForm).Lines.Add('Текст какой то');

[Snoname]

Спасибо огромное работает!