Dauerschleife unterbrechen

[vip11]

hallo

ich hab nen problem:
ich hab nen programm geschrieben das immer wieder die selbe aktion ausführen soll wenn man einen button drückt und damit aufhören soll wenn ich auf einen anderen drück. nur hab ich das problem das das programm hängt wenn ich den start button klick.

Delphi-Quellcode:

procedure TForm1.klicker;
begin
while onoff > 0 do
begin
//...//
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
onoff := 1;
klicker;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
onoff := 0;
end;

mfg vip11

p.s. hab sufu benutzt aber nichts gefunden

[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]

[mkinzler]

Verwende einen Timer

[mjustin]

Delphi-Quellcode:

procedure TForm1.klicker;
begin
  while onoff > 0 do
  begin
    //...//
    Application.ProcessMessages;
  end;
end;

Application.ProcessMessages ist wichtig, um den anderen Bestandteilen der Benutzeroberfläche auch etwas von der Rechenzeit abzugeben. Dies ermöglicht es dem zweiten Button, den Mausklick zu erhalten.

Cheers,

[mkinzler]

Aber auch mit Application.ProcessMessages; wäre die Lösung recht suboptimal

[vip11]

ok thx für die schnellen antworten werde es sofort testen

edit:mit dem Application.ProcessMessages; hats geklappt

edit2: weiß vlt. noch einer wie ich die pixelzahl des bildschirms scan?

[Forlan]

Neue Frage = neuer Thread