- Код: Выделить всё
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(да их много)
А потом приложение падает...
К чему бы это???
