请教一个关于线程的简单问题?

[huanzhugege]

小弟我刚学多线程，自己做了一个程序，可是总是出错，代码如下：
主程序：

crazyclick1:Tcrazyclick;//tcrazyclick是我自定义的一个线程
...
procedure TForm1.Button1Click(Sender: TObject);
begin
crazyclick1.Resume;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
crazyclick1:=Tcrazyclick.create(edit1.Text);
end;

Tcrayclick线程代码
unit crazyclick;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;

type
Tcrazyclick = class(TThread)
webbrowser1:Twebbrowser;
private
{ Private declarations }
protected
url1:string;
procedure Execute; override;
procedure webbrowser1Downloadcomplete(sender:Tobject);

public
finishednum:integer;
constructor create(url:string);
end;

implementation

constructor Tcrazyclick.create(url:string);
begin
inherited create(True);
finishednum:=0;
url1:=url;

end;

procedure Tcrazyclick.webbrowser1Downloadcomplete(sender:Tobject);
begin
try

webbrowser1.Refresh;
inc(finishednum);
except
on exception do
end;

end;

procedure Tcrazyclick.Execute;
begin

webbrowser1.Navigate(url1);//执行到此处时总是出错

{ Place thread code here }
end;

end.
执行到上边注释的那句时总是出错，请帮助我

[zhuojohn]

//直接重载WebBrowser的成员函数OnDocumentComplete，可能更加合适

procedure TForm1.OnWebBrowserDocumentComplete
begin
//TO enter your code here
end;
procedure TForm1.OnCreate
begin
WebBrowser1.OnDocumentComplete := OnWebBrowserDocumentComplete;
end;

[hiflower]

是不是要在主线程中执行呢？用 Synchronize(...)

[pandengzhe]

学习一下

[yangxjn]

unit SortThds;

interface

uses
Classes, Graphics, ExtCtrls;

type

{ TSortThread }

PSortArray = ^TSortArray;
TSortArray = array[0..MaxInt div SizeOf(Integer) - 1] of Integer;

TSortThread = class(TThread)
private
FBox: TPaintBox;
FSortArray: PSortArray;
FSize: Integer;
FA, FB, FI, FJ: Integer;
procedure DoVisualSwap;
protected
procedure Execute; override;
procedure VisualSwap(A, B, I, J: Integer);
procedure Sort(var A: array of Integer); virtual; abstract;
public
constructor Create(Box: TPaintBox; var SortArray: array of Integer);
end;

{ TBubbleSort }

TBubbleSort = class(TSortThread)
protected
procedure Sort(var A: array of Integer); override;
end;

{ TSelectionSort }

TSelectionSort = class(TSortThread)
protected
procedure Sort(var A: array of Integer); override;
end;

{ TQuickSort }

TQuickSort = class(TSortThread)
protected
procedure Sort(var A: array of Integer); override;
end;

procedure PaintLine(Canvas: TCanvas; I, Len: Integer);

implementation

procedure PaintLine(Canvas: TCanvas; I, Len: Integer);
begin
Canvas.PolyLine([Point(0, I * 2 + 1), Point(Len, I * 2 + 1)]);
end;

{ TSortThread }

constructor TSortThread.Create(Box: TPaintBox; var SortArray: array of Integer);
begin
FBox := Box;
FSortArray := @SortArray;
FSize := High(SortArray) - Low(SortArray) + 1;
FreeOnTerminate := True;
inherited Create(False);
end;

{ Since DoVisualSwap uses a VCL component (i.e., the TPaintBox) it should never
be called directly by this thread. DoVisualSwap should be called by passing
it to the Synchronize method which causes DoVisualSwap to be executed by the
main VCL thread, avoiding multi-thread conflicts. See VisualSwap for an
example of calling Synchronize. }

procedure TSortThread.DoVisualSwap;
begin
with FBox do
begin
Canvas.Pen.Color := clBtnFace;
PaintLine(Canvas, FI, FA);
PaintLine(Canvas, FJ, FB);
Canvas.Pen.Color := clRed;
PaintLine(Canvas, FI, FB);
PaintLine(Canvas, FJ, FA);
end;
end;

{ VisusalSwap is a wrapper on DoVisualSwap making it easier to use. The
parameters are copied to instance variables so they are accessable
by the main VCL thread when it executes DoVisualSwap }

procedure TSortThread.VisualSwap(A, B, I, J: Integer);
begin
FA := A;
FB := B;
FI := I;
FJ := J;
Synchronize(DoVisualSwap);
end;

{ The Execute method is called when the thread starts }

procedure TSortThread.Execute;
begin
Sort(Slice(FSortArray^, FSize));
end;

{ TBubbleSort }

procedure TBubbleSort.Sort(var A: array of Integer);
var
I, J, T: Integer;
begin
for I := High(A) downto Low(A) do
for J := Low(A) to High(A) - 1 do
if A[J] > A[J + 1] then
begin
VisualSwap(A[J], A[J + 1], J, J + 1);
T := A[J];
A[J] := A[J + 1];
A[J + 1] := T;
if Terminated then Exit;
end;
end;

{ TSelectionSort }

procedure TSelectionSort.Sort(var A: array of Integer);
var
I, J, T: Integer;
begin
for I := Low(A) to High(A) - 1 do
for J := High(A) downto I + 1 do
if A[I] > A[J] then
begin
VisualSwap(A[I], A[J], I, J);
T := A[I];
A[I] := A[J];
A[J] := T;
if Terminated then Exit;
end;
end;

{ TQuickSort }

procedure TQuickSort.Sort(var A: array of Integer);

procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
var
Lo, Hi, Mid, T: Integer;
begin
Lo := iLo;
Hi := iHi;
Mid := A[(Lo + Hi) div 2];
repeat
while A[Lo] < Mid do Inc(Lo);
while A[Hi] > Mid do Dec(Hi);
if Lo <= Hi then
begin
VisualSwap(A[Lo], A[Hi], Lo, Hi);
T := A[Lo];
A[Lo] := A[Hi];
A[Hi] := T;
Inc(Lo);
Dec(Hi);
end;
until Lo > Hi;
if Hi > iLo then QuickSort(A, iLo, Hi);
if Lo < iHi then QuickSort(A, Lo, iHi);
if Terminated then Exit;
end;

begin
QuickSort(A, Low(A), High(A));
end;

end.