Проблемы с TThread

[Yogrik]

Код: Выделить всё

  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; 

При нажатии на кнопку
Начинают появлятся ShowMessage's с надписью Test(да их много)
А потом приложение падает...
К чему бы это???

[serg_iv]

У меня и в Делфи так же было.
Похоже на то, что операционка это дело как то отслеживает и убивает процесс порождающий много окошек с сообщениями.

[Yogrik]

Ну покрайне мере, точно такойже код на
Делфи 7 работает, покрайне мере так как я этого ожидаю.....


Так это ошибка оси или баг FPC????

[Sergei I. Gorelkin]

Операционка-то какая?

[Yogrik]

Пока Windows, до Linux'a никак руки не дойдут...

[serg_iv]

Да странно.
Вчера очень невнимательно посмотрел код, подумал там многократно вызывается @Test. Извиняюсь.