Активная вкладка и контролы на ней...

[prizrak1390]

Доброе время суток.
Возникла небольшая проблема....
Допустим по нажатию на button,создаётся новая вкладка в компоненте PageControl1,и сразу же в этой вкладке создаётся к примеру Webbrowser. Суть проблемы такова...допустим создано вкладок 5 и открыта к примеру 3-я. И если я нажал например на button2,то в url компонента webbrowser на этой страничке,передаётся текст например из edit1.

Ступор в такой мелочи...но я без понятия как обратиться к компоненту на вкладке.

[mihali4]

А вы, когда создаете на вкладке Webbrowser, присваивайте ему имя "Webbrowser"+PageControl1.TabIn dex (т.е. индексный номер вкладки, на которой вы его создаете (вкладка-родитель)).
Тогда и обращаться к нему будет просто.

[MalexG]

А вы, когда создаете на вкладке Webbrowser, присваивайте ему имя "Webbrowser"+PageControl1.TabIn dex (т.е. индексный номер вкладки, на которой вы его создаете (вкладка-родитель)).
Тогда и обращаться к нему будет просто.

=================================== ==============
Вся беда этого совета в том, что если пользователь закроет одну из вкладок, то изменится порядковый индекс остальных вкладок.
На мой взгляд необходимо в цикле перебирать все контролы активной вкладки и сопоставлять их на соответствие нужному классу контрола. Получив указатель на необходимый контрол, им уже можно располагать как вам заблагорассудится.

[tramvajman]

Я эту проблему уже когда-то решил так:

type
  //тут всякие там компоненты и т.д.
  TWB = record
    Sheet:TTabSheet;
    Page:TWebBrowser;
  end;

var
  Form1: TForm1;
  WB:array of TWB;
  N: Integer;

procedure CreateWB;
begin
  Inc(N);
  SetLength(WB,N+1);
  WB[N].Sheet:=TTabSheet.Create(Form1);
  WB[N].Sheet.Parent:=Form1.PageControl1;
  WB[N].Page:=TWebBrowser.Create(Form1);
  WB[N].Page.ParentWindow:=WB[N].Sheet.Handle;
  WB[N].Sheet.PageControl:=Form1.PageControl1;
  WB[N].Page.Align:=alClient;
  WB[N].Page.FullScreen:=true;
  WB[N].Page.Silent:=true;
end;

end;

Потом в обработчике события проверяете какая вкладка активна.

function WhatWB:integer;
var
  i:integer;
begin
  for i:=1 to n do
    if WB[i].Sheet.Showing then break;
  result:=i;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WB[WhatWB].Page.Navigate('параметры');
end;