Entwickler-Ecke
Sonstiges (Delphi) - Bei Messagebox eine for-to-Schleife weiter ausführen!
JacK_Silent - Fr 21.04.06 01:04
Titel: Bei Messagebox eine for-to-Schleife weiter ausführen!
Ich versuche grad ein Programm zu schreiben, welches 50 mal piepst, aber aufhören soll, wenn in der messagebox OK gedrückt wird!
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!
Delete - Fr 21.04.06 01:43
Das wirst du wohl über Threads lösen müssen, da die Messagebox modal zu deinem Fenster ist.
JacK_Silent - Fr 21.04.06 14:05
Hab jetzt einfach ne 2te Form dazugenommen, da ich von Threads keine Ahnung hab!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!