действие при обновлении webbrowser

[Niklan]

Вобщем нужно сделать так.
Чтобы при обновлении страницы в webbrowser, делалось showmessage('123').

[mihali4]

Посмотрите на события у WebBrowser-а...

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
Showmessage('123');
end;

[Niklan]

Сообщение от mihali4

Посмотрите на события у WebBrowser-а...

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
Showmessage('123');
end;

Когда открывается программа, уже загружена страница. И если она обновится показывается сообщение. А не когда загрузится страница. А то он сразу выдаст сообщение.
примерно так if webbrowser.refrеsh then

[Johnson]

ну что-то вроде такого (по памяти пишу):

Procedure Form1Create(...);
begin
isFirstRun:=true;
end;

WebBrowser1DocumentComplete(...);
begin

if not(isFirstRun) then ShowMessage('123');
//Ещё действия
isFirstRun:=False;
end;

Первый раз при завершении построения документа ничего не произойдёт, переменная не позволит, а последним действием выставляем её на False, и при следующем построении ShowMessage исполнится...

[Niklan]

Сообщение от Johnson

ну что-то вроде такого (по памяти пишу):

Procedure Form1Create(...);
begin
isFirstRun:=true;
end;

WebBrowser1DocumentComplete(...);
begin

if not(isFirstRun) then ShowMessage('123');
//Ещё действия
isFirstRun:=False;
end;

Первый раз при завершении построения документа ничего не произойдёт, переменная не позволит, а последним действием выставляем её на False, и при следующем построении ShowMessage исполнится...

это чо еще за ifFirstRun:=True, таких вообще команд нету у меня в делфи

[Johnson]

это переменная...

var
  isFirstRun: boolean;

в обьявления глобальных переменных (в самом начале кода, чуть ниже обьявления класса формы)

[russian-stalker]

var
isfirstrun:boolean;