| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Name = 'Элемент управления обозревателя Microsoft'. Что за чушь? [D6, Win95/98]
electric © (2004-07-18 10:10:00)
procedure TForm1.WebBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
Var
Name: String;
begin
If (Sender is TWebBrowser) then
Name := (Sender as TWebBrowser).Name;
end;
В итоге получаетса что имя компонента Name = 'Элемент управления обозревателя Microsoft'
Ihor Osov'yak (2004-07-18 11:54:00) [1]Дело в том, что соотв. активХ имеет проперти Name, и ничего не знает о делфийском проперти Name (посмотрите исходники компонента-обертки TWebBrowser, в части property Name: WideString index 0 read GetWideStringProp;)
В Вашем случае можно поступить так:
procedure TForm1.WebBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
Var
Name: String;
begin
If (Sender is TWebBrowser) then
Name := (Sender as TOleControl).Name;
end;
electric (2004-07-18 11:07:00) [2]Я динамически создаю компонент с именем Web1 , а при нажатии на этот компанент появляетса его имя 'Элемент управления обозревателя Microsoft'. Подскажите кто-нибудь, в чём проблема может быть?
| |
