Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.032 c