Доброго дня, уважаемые специалисты и новички!
У меня возникла следующая проблема:
я создаю на этапе выполнения форму(например
TForm2.Create (Application);
Caption:= 'Window1'
) и на ней есть, например, какой то Edit1. Затем я создаю еще такую же форму
TForm2.Create (Application);
Caption:= 'Window2'
А теперь вопрос, как мне с другой формы(например с Form1), добраться к Edit1 конкретной формы? Пускай это будет первая созданная формаформа с
Caption = 'Window1'
Заранее, большое спасибо всем откликнувшимся!
Здравствуйте, Red_Baron, Вы писали:
R_B>Доброго дня, уважаемые специалисты и новички!
R_B>У меня возникла следующая проблема:
R_B>я создаю на этапе выполнения форму(например
R_B>R_B>TForm2.Create (Application);
R_B>Caption:= 'Window1'
R_B>
R_B>) и на ней есть, например, какой то Edit1. Затем я создаю еще такую же форму
R_B>my_form_1 := TForm2.Create (Application);
R_B>Caption:= 'Window2'
R_B>
R_B>А теперь вопрос, как мне с другой формы(например с Form1), добраться к Edit1 конкретной формы? Пускай это будет первая созданная формаформа с
R_B>my_form_1.Caption = 'Window1'
R_B>
R_B>Заранее, большое спасибо всем откликнувшимся!
или заводи список... никто ж не знает что тебе нужно...
... << RSDN@Home 1.1.4 beta 6a rev. 436>>
Здравствуйте, Drago, Вы писали:
D>Здравствуйте, Red_Baron, Вы писали:
D>Screen.Forms вам поможет
и как работает этот Screen.Forms?
объясните пожалуйста?
Здравствуйте, Red_Baron, Вы писали:
R_B>и как работает этот Screen.Forms?
R_B>объясните пожалуйста?
при содании формы она автоматически заносится "в реестр" форм. доступ к этому массиву можно получить через свойство Forms объекта Screen.
дальше все зависит от того что вам нужно
Здравствуйте, Red_Baron, Вы писали:
R_B>Здравствуйте, Drago, Вы писали:
D>>Здравствуйте, Red_Baron, Вы писали:
D>>Screen.Forms вам поможет
R_B>и как работает этот Screen.Forms?
R_B>объясните пожалуйста?
Перечисление созданных форм определенного класса (вариант TForm2)...
...
for i := 0 to Screen.Forms.Count -1 do
if Screen.Forms[i] is TForm2 then
Caption := Screen.Forms[i].Name;
...
Тебе необходимо пройти по массиву Application.Forms и найти свою форму. А потом у найденой формы вызвать метод FindComponent и привести его к TEdit