Обратится к компоненту на динамически созданной форме

[nibufep]

Доброго времени суток!

Form := Application.FindComponent('form11') as TForm;
if Assigned(Form) then

проверяю вот так существует ли форма, если существует то нужно обратиться к компоненту WebBrowser который на ней лежит, как это сделать?

[Serge_Bliznykov]

так же

MyWeb:=Form.FindComponent('WebBrowser');

или через перебор всех Form.Components и проверку, подходит ли найденный компонент под ваши критерии:

  for i := 0 to Form.ComponentCount - 1 do
    if (Form.Components[i] is TWebBrowser) then ....

[nibufep]

а как потом обращаться к этому компоненту?

var
  Form: TForm;
  MyWeb: TComponent;
  MyWeb2: TWebBrowser;
begin
Form := Application.FindComponent('form11') as TForm;
if Assigned(Form) then
   MyWeb := Form.FindComponent('WebBrowser');
if Assigned(MyWeb) then
   MyWeb2 := MyWeb;
....

я имею ввиду что-то типа этого, но так не работает...

[Dmitry33RU]

var
MyWeb: TWebBrowser;
begin
...
MyWeb := (Form.FindComponent('WebBrowser') as TWebBrowser);

[nibufep]

                  if Assigned(Form) then
                  begin
                    for a := 0 to Form.ComponentCount - 1 do
                    begin
                      if (Form.Components[a] is TWebBrowser) then
                      begin
                        MyWeb2 := (Form.Components[a] as TWebBrowser);
                        doc := MyWeb2.Document as IHTMLDocument2;
                        term := doc.parentWindow as IHTMLWindow2;
                        term.execScript('TYT JS CODE', 'javascript');
                      end;
                    end;
                  end;

Почему то не работает...

[nibufep]

                  if Assigned(Form) then
                  begin
                    for a := 0 to Form.ComponentCount - 1 do
                    begin
                      if (Form.Components[a] is TWebBrowser) then
                      begin
                        MyWeb2 := (Form.Components[a] as TWebBrowser);
                        doc := MyWeb2.Document as IHTMLDocument2;
                        term := doc.parentWindow as IHTMLWindow2;
                        term.execScript('TYT JS CODE', 'javascript');
break;
                      end;
                    end;
                  end;

а если так то работает, почему? Компонент WebbRowser на форме 1

[min@y™]

проверяю вот так существует ли форма

почему именно так?
сколько экземпляров класса формы может существовать одновременно?

[nibufep]

Сообщение от min@y™

почему именно так?
сколько экземпляров класса формы может существовать одновременно?

∞
Сколько угодно

[min@y™]

тогда тем более не понимаю этого:

Application.FindComponent('form11')

глупость какая-то, ведь есть жэ Screen.Forms[], но лучше вообще свой список завести.

[nibufep]

Сообщение от min@y™

тогда тем более не понимаю этого:

Application.FindComponent('form11')

глупость какая-то, ведь есть жэ Screen.Forms[], но лучше вообще свой список завести.

мне кажется так проще, ведь Screen.Forms придеться циклом перебирать, ищя нужную форму