Probleme mit Bildschirmschonervorschau

[Delphi-Laie]

Zitat von SirThornberry:

meine Vermutung wäre das dein Programm in einer Schleife festhängt. Also das du ständig das Bild aktuallisierst und mit Application.Processmessages dafür sorgst das nachrichten verarbeitet werden. Dadurch das es in einer schleife geschieht kann das Programm jedoch nicht entladen werden. Das wäre meine Vermutung.

Diese Diskussion ist zwar schon einige Jahre alt, aber vor genau dem gleichen Problem stehe ich nun auch und finde keine Lösung.

Wenn man während der laufenden Bildschirmschonervorschauf auf "Testen" oder "Einstellungen" klickt, so müßte das Bildschirmschonerprogramm beendet und mit anderem Paremeter erneut gestartet werden.

Die Ereignisse "OnCloseQuery" und "OnClose" werden (in dieser Reihenfolge) aufgerufen, wenn man die BSS-Vorschau beenden möchte, also wird wohl der Beendenbefehl an das Programm gesendet. Das Beenden der (im Vorschaumodus eben nicht mit Tastendruck oder Mausklick beendbaren) Bildschirmschonervorschau mutiert damit aber leider im besten Falle zur Geduldsprobe oder ist sogar völlig unmöglich.

Der Timer wird zum Start nur einmal aufgerufen, und die Schonerschleife soll eigentlich für die Vorschaud und das eigentliche Schonen gleichermaßen allgemeingültig sein. Hier der Quelltext:

Delphi-Quellcode:

procedure TSaverForm.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
if copy(upperCase(paramstr(1)),1,2)<>'/C' then
  begin
    while not abbruch do
    begin
    Application.ProcessMessages;
  
    //eigentlicher Quellcode des BSS bzw. dessen Vorschau
  
    end
  end;
Application.Terminate //alternativ: SaverForm.Close
end;

procedure TSaverForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
abbruch:=true
end;

Akustische Ausgaben verrieten mir zudem, daß OnCloseQuery und OnClose viele Male abwechselnd aufgerufen werden - vermutlich wegen des Application.ProcessMessages.

Wie kann man eine solche Schleife schnell und sicher beenden? Ich probierte schon alles mögliche, unter anderem, daß Programm direkt in der Schleife zu beenden, OnClose statt OnCloseQuerey zu benutzen, beides gemeinsam, nichts hilft. Mit einem regelmäßigen Timer hingegen ist das Programm quälend langsam.

Im eigentlichen Schonermodus reagiert es hingegen sofort auf Eingaben und beendet sich sogleich.