In the form class declaration, Introduce a boolean variable FStopped:

Private
  FStopped : Boolean;

The start button onclick handler works as follows:

procedure TTestwin.StartClicked(Sender: TObject);
begin
 FStopped:=False;
 repeat
    writeln('xxx');
    Application.ProcessMessages; // Process pending messages.
 until FStopped;
end;

The stop button onclick handler works as follows:

procedure TTestwin.StopClicked(Sender: TObject);
begin
  FStopped:=True;
end;

The most important part is the

  Application.ProcessMessages;

This makes sure that the click on the stop button is registered.

Michael.

Great thanks!!
That solved it...

But I still have another problem as you can see in the other post ;-) Documentation is not very helpful yet....

Sebastian

Hi all,

I have a window with 2 buttons. One Start and one Stop. When clicking on start the program begins to write some lines to the commandline. How can I find out when the button stop is pressed? Seems the event isn't handled when the Program is still hanging in the start-button event...

Should look kind of that...

procedure TTestwin.startClicked(Sender: TObject);
begin
 repeat writeln('xxx') until "button stop pressed";
end;

But I've no idea who to build that in Pascal code...

Can anyone help?

Sebastian

You have to give the LCL event queue some processing time.

procedure TTestwin.startClicked(Sender: TObject);
begin
  ButtonStopPressed:=false;
  repeat
    writeln('xxx');
    Application.ProcessMessages;
  until ButtonStopPressed;
end;
procedure TTestwin.stopClicked(Sender: TObject);
begin
  ButtonStopPressed:=true;
end;

OR:
Put your writeln in an Application.OnIdle event.

Mattias

Clearly a serious Intel. Prop. issues here. Since Mattias was date posted first I guess Michael MUST of copied his code and just changed it a little to appear that it was different but clearly he copied it.

Hee hee hee. ;-)

This was such a great example of why some of the SCO stuff is so much hog wash. Somethings are just written some ways and that is that.

Just struck me funny.

/me bets on linux vs windows.

Michael, linux user, having set hwtime to UTC, and posting in UTC to avoid local time issues.