как вызвать процедуру из другой процедуры?

[bakanaev]

Есть процедура procedure TForm1.Button1Click(Sender: TObject);
на форме лежит веббраузер
так вот, у него есть такое событие как DocumentComplete
вызывается процедурой procedure TForm1.WebBrowser1DocumentComplete( ASender: TObject;
const pDisp: IDispatch; const URL: OleVariant);
Так у меня идет цикл

procedure TForm1.Button1Click(Sender: TObject);
begin 
  for  i := 0 to ListBox1.Items.Count-1 do
begin


                 WebBrowser1.Navigate(URL);
                 Label4.Caption:=IntToStr(i);
                 Application.ProcessMessages();
 end;
end;

Как мне вызвать в теле цикла процедуру procedure TForm1.WebBrowser1DocumentComplete( ASender: TObject;
const pDisp: IDispatch; const URL: OleVariant); ??
Что подставлять вместо ASender, pDisp, URL ?

[Базиля]

Это процедура исполняется автоматически, когда произойдет полная загрузка страницы.

[bakanaev]

Да я знаю)) Но мне надо вызвать вручную

[Базиля]

Можно узнать?
Для чего вам это нужно?
Я думаю в данном случае правильней будет написать свою процедуру и воспользоваться ею.
А ваши намерения несколько некорректны.

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
begin 
  for  i := 0 to ListBox1.Items.Count-1 do
begin

WebBrowser1DocumentComplete(nil,nil,url);
                 WebBrowser1.Navigate(URL);
                 Label4.Caption:=IntToStr(i);
                 Application.ProcessMessages();
 end;
end;

Сойдет?

[Базиля]

Вот хоть убейте, понять не могу, для чего таки извращения автору?

[bakanaev]

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

procedure TForm1.Button1Click(Sender: TObject);
begin 
  for  i := 0 to ListBox1.Items.Count-1 do
begin

WebBrowser1DocumentComplete(nil,nil,url);
                 WebBrowser1.Navigate(URL);
                 Label4.Caption:=IntToStr(i);
                 Application.ProcessMessages();
 end;
end;

Сойдет?

Хм, не знаю, сейчас попробую))

[bakanaev]

Сообщение от Базиля

Вот хоть убейте, понять не могу, для чего таки извращения автору?

Ну смотри как мне надо

procedure TForm1.Button1Click(Sender: TObject);
begin 
  for  i := 0 to ListBox1.Items.Count-1 do
begin
                 WebBrowser1.Navigate(URL); 
                 Тут надо дождаться пока страница загрузится полностью, и только потом выводить значение в Label4 
                 Label4.Caption:=IntToStr(i);
                 Application.ProcessMessages();
 end;
end;

[bakanaev]

Сообщение от Базиля

Можно узнать?
Для чего вам это нужно?
Я думаю в данном случае правильней будет написать свою процедуру и воспользоваться ею.
А ваши намерения несколько некорректны.

Все может быть, только зачем изобретать велосипед?

[Базиля]

Как раз таки ваши намерения на изобретение велосипеда понять не могу.
Вот вам пример:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
               const pDisp: IDispatch; var URL: OLEvariant);
var
  CurWebrowser : IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document     : OLEvariant;
  WindowName   : string;
begin { TForm1.WebBrowser1DocumentComplete }
  CurWebrowser := pDisp as IWebBrowser; 
  TopWebBrowser := (Sender as TWebBrowser).DefaultInterface; 
  if CurWebrowser=TopWebBrowser then
  begin
    ShowMessage('Document is complete.') 
  end
  else
  begin
    Document := CurWebrowser.Document; 
    WindowName := Document.ParentWindow.Name; 
    ShowMessage('Frame ' + WindowName + ' is loaded.')
  end;
end;

Не могу понять для чего вручную вызывать эут процедуру, для каких целей то?
Тело процедуры можно легко подогнать под себя