我想設計一個可以把網頁原始碼複製到Memo的元件
屬性選擇Memo之後在OnDocumentComplete事件自動複製到Memo,
我繼承TWebBrowser,但是Compile說找不到這個Event
Method OnDocumentComplete not found in base event
不知道是不是我的觀念有錯呢?


[code delphi]
unit SeanWebBrowser;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;
type
TSeanWebBrowser = class(TWebBrowser)
private
{ Private declarations }
MMZ: TMemo;
AuthorName: String;
function GetMemo: TMemo;
procedure SetMemo(Value: TMemo);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner : TComponent); override;
procedure OnDocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant); override; //<----錯誤
published
{ Published declarations }
property Memo: TMemo read GetMemo write SetMemo;
property Author: String read AuthorName write AuthorName;
property Tag;
end;

implementation
uses
MSHTML;
procedure TSeanWebBrowser.OnDocumentComplete(ASender: TObject; //<----錯誤
const pDisp: IDispatch; var URL: OleVariant);
var
Doc: IHTMLDocument2;
i:Integer;
strkey,str2:String;
begin
inherited;
Doc := TSeanWebBrowser.Document as IHTMLDocument2;
MMZ.Lines.Text := doc.body;
end;
function TSeanWebBrowser.GetMemo: TMemo;
begin
result:= MMZ;
end;
procedure TSeanWebBrowser.SetMemo(Value: TMemo);
begin
MMZ:= Value;
end;
constructor TSeanWebBrowser.Create(AOwner: TComponent);
begin
inherited;

end;
end.

[/code]

編輯記錄