Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.01;
Скачать: CL | DM;

Вниз

Name = Элемент управления обозревателя Microsoft . Что за чушь?   Найти похожие ветки 

 
electric   (2004-07-18 10:10) [0]


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"


 
electric   (2004-07-18 11:07) [1]

Я динамически создаю компонент с именем Web1 , а при нажатии на этот компанент появляетса его имя "Элемент управления обозревателя Microsoft". Подскажите кто-нибудь, в чём проблема может быть?


 
Ihor Osov'yak ©   (2004-07-18 11:54) [2]

Дело в том, что соотв. активХ имеет проперти 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;



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

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

Наверх




Память: 0.47 MB
Время: 0.059 c
1-1090309518
artem123
2004-07-20 11:45
2004.08.01
Динамически изменить местоположение dbedit в зависимости от .....


8-1083744484
rand0m
2004-05-05 12:08
2004.08.01
Морфинг


1-1089508311
Алекс А
2004-07-11 05:11
2004.08.01
Как записать record в ini-файл ?


9-1082097325
Darthman
2004-04-16 10:35
2004.08.01
2D 3D opensource OpenGL engine. Может быть кому пригодится.


11-1077973393
nester
2004-02-28 16:03
2004.08.01
Почему не работает raise?