tenho essa procedure no meu projeto
procedure DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);
Agora preciso usar ela em um loop passando a variável de contagem. Tentei da seguinte forma:
procedure DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant; var contagem : Integer);
Mas acontece que quando vou passar a variável, a procedure pede também os outros parâmetros Sender: TObject; const pDisp: IDispatch; const URL: OleVariant
que, cá entre nós, não faço idéia do que sejam.
Eu programo por hobby e estou fazendo um pequeno projeto pra um amigo, por favor me ajudem.
Não consigo saber o que fazer, tenho certeza que é algo simples mas pesquisei o dia todo e não encontrei a solução. O que passo no lugar desses parâmetros?.
Edit: Essa é a parte em que uso o loop para chamar a procedure, cada vez que ela for chamada é um browser diferente usado.
procedure TForm1.Button1Click(Sender: TObject);
begin
for contagem := 1 to StrtoInt(Edit1.Text) do
begin
browsers[contagem].OnDocumentComplete := nil;
NavigationOK := true;
browsers[contagem].OnDocumentComplete := DocCompleteA;
browsers[contagem].Navigate
('http://****/index.php?id=entrar');
end;
end;
Criação dos browsers:
procedure TForm1.Button2Click(Sender: TObject);
begin
for contagem := 1 to StrToInt(Edit1.Text) do
begin
campos[contagem] := TEdit.Create(self);
campos[contagem].Parent := Form1;
campos[contagem].Show;
campos[contagem].Left := 150;
campos[contagem].Top := 350;
campos[contagem].Width := 600;
browsers[contagem] := TWebBrowser.Create(Form1);
TWinControl(browsers[contagem]).Parent := Form1;
browsers[contagem].Align := alTop;
browsers[contagem].Height := 300;
browsers[contagem].Show;
browsers[contagem].Silent := true;
end;
end;