Moin
Seltsames Problem.
'Bitte warten...' ist eine eigenständige Form mit Progerssbar und einigen Images. Innerhalb läuft nichts - kein Code - jegliche Steuerung erfolgt von außen.
Die Form wird nur einmal geöffnet (Form_Warten.show und fsStayOnTop) und am Ende der Routine auch wieder ge-hided (Form_Warten.hide
. Mehr nicht, es gibt auch nur diese eine Routine, die öffnet und schließt.
Bei mir wird nach einem Durchlauf der Routine die Form ordnungsgemäß, wie gecoded auch wieder versteckt. Jedoch: Auf anderen (XP) Rechnern bleibt die Form nach dem Durchlauf, der okay und abgeschlossen aussieht - nicht ge-hided! Zudem jedoch nicht auf allen Rechnern, das Programm sucht sich für diesen 'PseudoBug' wohl bestimmte Rechner aus.
Mir fehlt die logische Konstruktion, warum es hier versteckt wird, aber auf anderen Rechnern nicht! Ich finde keine Abhilfe.
Gibt es eine Möglichkeit den 'Hide' so zu erzwingen, daß diese Form auf jeden Fall auf allen Rechnern gehided wird?
Delphi-Quellcode:
with Form_Warten do begin
Wait_Progresbar.position := 0;
Image7.visible := false;
Image8.visible := false;
Image9.visible := false;
Image10.visible := false;
Image11.visible := false;
Image12.visible := false;
repaint;
left := Form_3.left + 50;
top := Form_3.top + 350;
end;
... Berechnungen...
Form_Warten.Wait_Run_progress.position := 0;
Form_Warten.Wait_Run_progress.max := 10000;
Form_Warten.show;
Form_Warten.bringtofront;
Form_Warten.repaint;
...
Application.ProcessMessages;
Form_Warten.hide;