Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
begin
startflag := true;
timer1.enabled := true;
end;
procedure TForm1.Timer1StartTimer(Sender: TObject);
var I:integer;
begin
i := 0;
while startflag = true do
begin
inc(i);
label1.caption := inttostr(i);
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
startflag := false;
label1.caption := 'Done';
end;
Korrekt?
Funktioniert auch nicht...
Das Programm hängt weiterhin komplett fest und reagiert auf nichts. In die Timer1StartTimer-Prozedur muss wiederum application.ProcessMessages, dann funktionieren sowohl Ausgabe als auch Abbruch. Dann kann ich es aber auch in der Button1.Click Prozedur lassen, macht keinen Unterschied.