А можно события посылать ?... - Страница 2

Ezhy · 17.03.2004, 13:51

У меня такая задача:
В TWebBrowserе есть HTML - страница с влешью - таково задание.
На флеше давишь на кнопку и все закрывается (передается комманда проге на дельфе).

Предложения есть ?

GROL · 17.03.2004, 20:46

У TWebBrowser есть событие onBeforeNavigate. Делаешь проверку урла и если это твои команды делаешь их обработку.

В html

Код:

<a href="blabla"><object ... твой_флешик ></a>

В Delphi

Код:

procedure TMForm.WebBrowser1BeforeNavigate2(Sender: TObject;
    const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
    Headers: OleVariant; var Cancel: WordBool);
begin
 if ExtractFileName(URL) = 'blabla' then
  begin
    //  что хош
    Cancel := true;
    Close;
  end;
end;

Ezhy · 18.03.2004, 14:29

Всем впасибо, кто принял участие !!!
Может еще кто-то что-то придумает ?..

GROL · 18.03.2004, 14:51

Цитата:

Может еще кто-то что-то придумает ?..

Что, так тоже не подходит?

Ezhy · 18.03.2004, 15:11

Что ты !!!
Очень даже подходит !! Спасибо огромное !!!
А вдруг кого еще гениальная мысль осенит ?!