Bei Messagebox eine for-to-Schleife weiter ausführen!

JacK_Silent · Beiträge: 30

Ich versuche grad ein Programm zu schreiben, welches 50 mal piepst, aber aufhören soll, wenn in der messagebox OK gedrückt wird!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

For i:=1 To 50 do
begin
beeps;
Application.ProcessMessages;
if stop=1 then break;
end;

if application.messagebox('ready!', 'FoodTimer', mb_ok)=idok then stop:=1;

Bei diesem Code piepst es nur einmal und es wird dann die messagebox angezeigt, welche das ganze nach drücken des OK-Buttons dann auch schon beendet.

Vielen Dank für eure Hilfe!

Ehemaliges Mitglied Erhaltene Danke: 1

Das wirst du wohl über Threads lösen müssen, da die Messagebox modal zu deinem Fenster ist.

JacK_Silent · Beiträge: 30

Hab jetzt einfach ne 2te Form dazugenommen, da ich von Threads keine Ahnung hab!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme