Turbo Delphi - Přístup ke komponentám

Pokud je ten webbrowser pouze jeden, bude mnohem jednodussi si v ramci formulare v private nadeklarovat promennou a do ni priradit odkaz na ten webbroser. Pak to nemusis resit a pohodlne k nemu pristoupis.

Nie je to najlepšie/najuniverzálnejšie riešenie ale asi takto (narýchlo):

function mainForm.GetWB: TWebBrowser;
begin
  result := TWebbrowser(PageControl.ActivePage.Controls[0]);  //ak je tam iba 1 komponenta, čiže je prvá [0]
  result := TWebbrowser(PageControl.ActivePage.Controls[2]); //ak sú tam 3 a Webrowser je posledný, čiže [2]
end;

Form1 = Class(TForm)
...
private
  wb: TWebBrowser;
...
public 
...

Kdyz budu webBrowser vytvaret, nebudu si deklarovat lokalni promennou, ale pouziju promennou WB.
Pak budu pres tu promennou k WebBrowseru pristupovat, nemusim nic pretypovavat a spolehat se na to, ze je WebBrowser posledni kompoennta.

Jinak ten tvuj kod bych opravil na:

  result := TWebbrowser(PageControl.ActivePage.Controls[PageControl.ActivePage.ControlCount-1]); 

S tou premennou deklarovanou vo vnútri triedy ako private to nepôjde...(musíš pozrieť jeho staršie predchádzajúce príspevky, čo ako vytvára/ruší za behu programu)
a za druhé: aj tak by si nemohol pristupovať ku jednotlivým wb cez jednu premennú, keď práve neukazuje na konkrétnu inštanciu (fuj aké slovo...).

Ja by som môj kód ešte poupravil:

var
  i: Integer;
begin
  with PageControl.ActivePage do
  for i = 0 to ControlCount -1 do
  begin
    if Controls[i] is TWebBrowser then 
     begin
       Result := TWebbrowser(PageControl.ActivePage.Controls[i];
       Exit;  
     end;
  end; 
end;