Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.10.19;
Скачать: 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 вся ветка

Текущий архив: 2008.10.19;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
15-1219934803
kaif
2008-08-28 18:46
2008.10.19
Кто-нибудь может перевести?


4-1196784303
aleko
2007-12-04 19:05
2008.10.19
закрытие чужого окна


2-1220950600
Ivolg
2008-09-09 12:56
2008.10.19
HTTP 1.1 400 Bad Request


15-1220028990
DevilDevil
2008-08-29 20:56
2008.10.19
Соотношение сторон монитора. Потестируйте, пожалуйста.


15-1220035565
Terasbetoni
2008-08-29 22:46
2008.10.19
Книга "Валерий Фаронов - Искусство создания компонентов Delphi"