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". Подскажите кто-нибудь, в чём проблема может быть?

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

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