Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: 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 вся ветка

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
3-1125573071
B
2005-09-01 15:11
2005.10.16
Соединение таблиц на основе НЕвхождения


2-1127143331
softerost
2005-09-19 19:22
2005.10.16
Преобразование


14-1127714504
Vlad Oshin
2005-09-26 10:01
2005.10.16
Сбиваются настройки видео. WinXPproSP2.


6-1119913547
LzeX7
2005-06-28 03:05
2005.10.16
POST запрос на winsock как правельно?


1-1127395108
keal
2005-09-22 17:18
2005.10.16
Исходники ядра браузера