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

Question

小弟我刚学多线程，自己做了一个程序，可是总是出错，代码如下：
主程序：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;interfaceuses
  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;implementationconstructor 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.
执行到上边注释的那句时总是出错，请帮助我

Answer 1

//直接重载WebBrowser的成员函数OnDocumentComplete，可能更加合适procedure TForm1.OnWebBrowserDocumentComplete
begin
   //TO enter your code here
end;
procedure TForm1.OnCreate
begin
   WebBrowser1.OnDocumentComplete := OnWebBrowserDocumentComplete;
end;

Answer 2

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

Answer 3

unit SortThds;interfaceuses
  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);implementationprocedure 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.