Скачать: CL | DM;

Как обратится к свойствам компонента???   Найти похожие ветки 

← →
Vardoulacha   (2005-09-15 08:11) [0]

вообщем смысл такой:
1) есть PageControl на нем динамически создается TabSheet
2) на TabSheet помещается с помощью InsertControl(Frame); фрейм на котором находится компонент TWebBrowser с именем WB
3) то есть например динамически создали несколько TabSheet с помещенными на них WebBrowser

сам вопрос в следующем: как мне обратится к компоненту WebBrowser (например сделать ему Navigate) который находится на том TabSheet который в данный момент активен?

---

← →
Vardoulacha   (2005-09-15 11:33) [1]

все заработало выкинул нафиг Frame пошел он куда подальше (зато приобрел опыт его использования) динамически создаю WebBrowser (раньше тоже сначала сделал динамически создание но потом столкнулся с проблемой как к нему обратится) но теперь научился сейчас расскажу как это сделать:

создание всего что надо :)

procedure TMainForm.butNewClick(Sender: TObject);
var
 TabSheet: TAdvTabSheet;
        j: Integer;
    Flags: OLEVariant;
    WB: TWebBrowser;
begin
 TabSheet:=TAdvTabSheet.Create(Self);
 TabSheet.AdvPageControl:=PageWindows;

 WB:=TWebBrowser.Create(Self);
 with WB do begin
   Align:=alClient;
   Navigate("file:///C:/untitled.html", Flags, Flags, Flags, Flags);
 end;

 with TabSheet do begin
   InsertControl(WB);
   Caption:="123";
   ShowClose:=True;
   OnCanClose:=CloseSheet;
 end;

 inc(i);
end;


ну и соответственно обращение к тому браузеру который активен

procedure TMainForm.Button1Click(Sender: TObject);
var
 Flags: OLEVariant;
    TS: TAdvTabSheet;
begin
 TS:=PageWindows.ActivePage;
 (TS.Controls[0] as TWebBrowser).Navigate("file:///C:/file.htm", Flags, Flags, Flags, Flags);
end;


у меня на табе только один контрол поэтому нет перебора и проверки компонентов

---

← →
msguns ©   (2005-09-15 14:56) [2]

Только вот непонятно, за что был убит ни в чем не винный фрэйм ?
Обращение к "нужному" объекту из энного кол-ва динамически созданных из одного класса, легко и просто через св-во Screen.ActiveControl с явным преобразованием к типу объекта

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c