求WebBrowser显示网页如何放入线程

[dongmei757]

我动态创建1个WebBrowser，我想让WebBrowser显示edit中的网页地址，并且有一个记时器到一定时间edit中的地址变化，因为有的网页较大或网络不好显示网页时，记时器会停止记时，询问网友说加入线程，并给了段代码，如下：


unit MyThreadPro;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,StdCtrls;
type
TForm1 = class(TForm)
UsedThread: TButton;
NoUsedThread: TButton;
procedure UsedThreadClick(Sender: TObject);
procedure NoUsedThreadClick(Sender: TObject);
var
Form1: TForm1;

implementation
{$R *.DFM}
//这是线程函数，它可以放在下面程序的任何地方
function MyThreadFunc(P:pointer):Longint;stdcall;
var
i:integer;
DC:HDC;
S:string;
begin
DC:=GetDC(Form1.Handle);
for i:=0 to 100000 do begin
S:=Inttostr(i);
Textout(DC,10,10,Pchar(S),length(S));
end;
ReleaseDC(Form1.Handle,DC);
end;

procedure TForm1.UsedThreadClick(Sender: TObject);
var
hThread:Thandle;//定义一个句柄
ThreadID:DWord;
begin
//创建线程，同时线程函数被调用
hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
end;

procedure TForm1.NoUsedThreadClick(Sender: TObject);
begin
MyThreadfunc(nil);
//没有创建线程时，直接调用线程函数
end;

end.


上面就是多线程的例子.你把代码放进那个MyThreadFunc里执行就行了.

请问如何将WebBrowser.Navigate(Edit.text)写到这个MyThreadFunc函数里呢？也就是如何写这样的函数？

[zhuang_bx]

//这是线程函数，它可以放在下面程序的任何地方
function MyThreadFunc(P:pointer):Longint;stdcall;
var
i:integer;
DC:HDC;
S:string;
begin
DC:=GetDC(Form1.Handle);
for i:=0 to 100000 do begin
S:=Inttostr(i);
Textout(DC,10,10,Pchar(S),length(S));
end;
ReleaseDC(Form1.Handle,DC);
Form1.WebBrowser.Navigate(Form1.Edit.text);//可以写在这里

end;