Как присвоить свою процедуру к TInternetExplorer.OnDocumentComple

← →
Johnnnn (2008-09-14 22:43) [0]

В общем нужно етому событию присвоить свою процедуру делаю так:

type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);

private
procedure comp(Sender:TObject; const pDisp:IDispatch;var URL:OleVariant);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
wb: IWebBrowser2;
IE: TInternetExplorer;
implementation

{$R *.dfm}
procedure TForm1.comp(Sender: TObject; const pDisp: IDispatch;
var URL: OleVariant);
begin
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
i:integer;
begin
i:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ie:=TInternetExplorer.create(self);
WB:=CoInternetExplorer.Create;
WB.Visible:=True;
ie.ConnectTo(wb);
IE.OnDocumentComplete:=WebBrowser1DocumentComplete;
IE.OnDocumentComplete:=comp;
end;

Вобщем показал 2 варианта как делаю и в обоих случаях выдает Parameter lists differ подскажите плиз что куда написать чтобы заработало?

← →
Palladin © (2008-09-15 11:07) [1]

убери нижнюю

Как присвоить свою процедуру к TInternetExplorer.OnDocumentComple Найти похожие ветки