[lazarus] TThread.Execute();

[Игорь Козлов]

 TMyThread = class(TThread)
  public
    procedure Execute;override;
    procedure Test;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   private
     { private declarations }
     thr : TMyThread;
   public
     { public declarations }

  end;

var
  Form1: TForm1;

implementation

procedure TMyThread.Execute;
begin
 Synchronize(@Test);
end;

procedure TMyThread.Test;
begin
 ShowMessage('Test');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     thr := TMyThread.Create(false);
end;


If click on Button1, the method Test starts to be caused(many times),
while the program will not fall.
It's bag?????

PS I'm new user and I'm not speak English....:(

_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives