Button abfrage

[turboPASCAL]

Zitat von Alf:

So lange ein Button gedrückt ist, soll ein Berechnung durchgeführt werden...

So ?

Delphi-Quellcode:

var StoppBerechnung: Boolean;

procedure TForm1.StartBerechnung;
begin
  repeat
    //... Berechnung
    //...
    Application.ProcessMessages;
  until StoppBerechnung;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  StoppBerechnung := False;
  StartBerechnung;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  StoppBerechnung := True;
end;