|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с динамически созданной формой
Как организовать поиск нужной формы по свойству Caption, и в ней добавить данные в Memo, формы созданы динамически!
Формы созданы таким образом: Код:
Application.CreateForm(TForm2, Form2); Form2.Caption:='У всех форм разное название' ; Form2.Show; Как например найти форму с названием "Форма 1" и добавить в ней данные в memo? Заранее большое спасибо! |
#2
|
||||
|
||||
Толчек в нужном направлении:
Код:
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; Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
#3
|
|||
|
|||
Попробуй через FindChildWindow. Если не поможет, то придется делать фабрику с запоминанием созданных форм.
|
#4
|
|||
|
|||
удалено.
10сим. |
#5
|
|||
|
|||
Цитата:
Спасибо форму вроде находит, но как обратиться к memo на найденой форме? |
#6
|
|||
|
|||
Думаю, примерно аналогично...
Код:
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('Текст какой то'); |
#7
|
|||
|
|||
Спасибо огромное работает!
|