Thread does only work once?

[Yakumo500]

Hi,
I have a problem with TThread.
I have a form with a button that executes a thread.
The problem is that only once the thread is called although i click multiple times on the button.

Sample source
http://ptp-systems.bplaced.net/Test.zip

[eny]

Better study the tutorial first before trying to get something working by trial and error.
One of the most important lines on the page: "Do you need multi-threading?"

FWIW: your application will crash horribly because you are calling ShowMessage directly.
But that's all explained in the tutorial.

[Yakumo500]

Well ok this should be only an example.

When I change my code to this:

Code: [Select]

procedure test.execute();
begin
  Synchronize(@CallMainThread);
end;

procedure test.CallMainThread();
begin
  showmessage('hey');
end;
the behavior doesn't change. The messagebox is called only once although I press the button 2 or more times.

[jixian.yang]

Call "Create" instead of "Start".


procedure test.execute();
begin
  Synchronize(@CallMainThread);
end;

procedure test.CallMainThread();
begin
  showmessage('hey');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  es := test.Create(True);
  es.FreeOnTerminate := True;
  es.start;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //es := test.Create(True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  //es.Free;
end;             

[Yakumo500]

Thanks for the answer. Now it works!