Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   Delphi Programm wird ungewollt inaktiv (https://www.delphipraxis.net/187150-programm-wird-ungewollt-inaktiv.html)

DelphiXE 1. Nov 2015 10:26

Programm wird ungewollt inaktiv
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,

ich bin neu hier, deshalb weis ich noch nicht ganz, ob das Thema hier richtig ist.

Es geht um folgendes:
Ich habe ein Spiel entwickelt, indem Ameisen Futterquellen suchen und dieses Futter zum Nest bringen müssen.
Gelöst habe ich das ganze dadurch, das ich eine Schleife genutzt habe, die Ameisen auf ein Bitmap gezeichnet habe und dieses dann auf eine PaintBox. Dies wird relativ schnell wiederholt, weshalb ich kein TImage genommen habe.(Ging bei mir nicht).

Nun das Problem:
Im Delphi Compiler(Wenn ich es aus der IDE heraus starte) funktioniert das ganze problemlos. Wird das Programm aber ohne IDE ausgeführt, meldet Windows nach kurzer Zeit das Programm im Taskmanager als Inaktiv und bricht das malen auf die PaintBox ab. Dies soll verhindert werden.
Ich habe schon versucht, das ganze als Thread zu schreiben, da wurde bei mir aber nichts mehr gemalt.:(

Der Code ist im Anhang.

nahpets 1. Nov 2015 11:20

AW: Programm wird ungewollt inaktiv
 
Vermutlich benötigt die Routine in
Delphi-Quellcode:
procedure TForm1.AmeiseMove;
einiges an Laufzeit.
Füge dort bitte mal hinter
Delphi-Quellcode:
 for I := 0 to High(Ameise1) do begin
ein
Delphi-Quellcode:
Application.ProcessMessages;
ein, damit das Programm eine Chance bekommt Windows über sein "Leben" zu informieren.

Wird's dann nicht besser, verschieb die Zeile hinter
Delphi-Quellcode:
repeat
.

DelphiXE 1. Nov 2015 11:33

AW: Programm wird ungewollt inaktiv
 
Sehr vielen Dank, es funktioniert jetzt bestens.:-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:25 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz