Abbrechen einer Schleife mit Button

[raena]

Hallo Forlan,

das klappt schon gut mit der ESC Taste. Die Schleife wird schön abgebrochen.
Wie kann man das jetzt mit einem Button machen oder geht das nicht?

Danke.

Zitat von Forlan:

Klick mich!

hättest du hier erst geguckt dann wüsstest du es!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    b_start: TButton;
    b_stop: TButton;
    procedure b_startClick(Sender: TObject);
    procedure ResetEscPressed;
    function EscPressed():Boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.b_startClick(Sender: TObject);
begin
resetescpressed;
repeat
sleep (200);
until EscPressed();
end;

procedure TForm1.ResetEscPressed;
begin
  GetAsyncKeyState(VK_ESCAPE);
  GetAsyncKeyState(VK_PAUSE);
end;

function TForm1.EscPressed():Boolean;
begin
  Result := ((GetAsyncKeyState(VK_ESCAPE) and $8001) <> 0) or
    ((GetAsyncKeyState(VK_PAUSE) and $8001) <> 0);
end;
end.