Скачать: CL | DM;

Как присвоить свою процедуру к 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]

убери нижнюю

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c