Desktop anzeigen -> Fenster lässt sich nicht mehr schließen

[baumina]

Wenn ich mir ein folgendes kleines Testprogramm mache:

Form1 :
Button -> Klick : Form2.Show;

Form2 :
Timer (Intervall 10000) -> OnTimer : Close;

Klicke ich nun auf den Button des 1. Formulars, erscheint das 2. für 10 Sekunden und ist dann wieder weg. Fein so will ich das haben.

Klicke ich nun auf den Button und danach den Windows-Button "Desktop anzeigen" und warte 10 Sekunden bevor ich mein Programm wieder anzeigen lasse, ist das 2. Formular weiterhin zu sehen und es lässt sich auch nicht mehr schließen.

Dieses Verhalten habe ich mit XE und Windows 7 oder Windows XP. Hat jemand eine Idee warum das so ist und was man dagegen tun kann?

[pelzig]

Ich habe mal Deinen Sourcecode mit meinem D7pe kompiliert und konnte beim Ausführen der EXE keinerleit Unregelmäßigkeiten festellen.

MfG

[baumina]

*push*

[himitsu]

Du könntest ja dein Testprogramm mal hochladen.

[baumina]

Kann ich gerne machen, sind ja eigentlich nur 2 Zeilen Code

Delphi-Quellcode:

program Project10;

uses
  Forms,
  Unit9 in 'Unit9.pas' {Form9},
  Unit10 in 'Unit10.pas' {Form10};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.Run;
end.

Delphi-Quellcode:

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, unit10, ExtCtrls;

type
  TForm9 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
begin
    Form10.show;
end;

procedure TForm9.Timer1Timer(Sender: TObject);
begin
  Form10.hide;
end;

end.

Delphi-Quellcode:

object Form9: TForm9
  Left = 0
  Top = 0
  Caption = 'Form9'
  ClientHeight = 337
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 224
    Top = 158
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Timer1: TTimer
    Interval = 10000
    OnTimer = Timer1Timer
    Left = 280
    Top = 54
  end
end

[TForm1]

Was passiert, wenn Du statt Form10.hide Form10.close machst? Ich kann den Quellcode zwar gerade nicht testen, vermute aber, dass es daran liegen könnte.

[pertzschc]

Zitat von baumina:

Dieses Verhalten habe ich mit XE und Windows 7 oder Windows XP. Hat jemand eine Idee warum das so ist und was man dagegen tun kann?

Ich kann es zumindest mit einem meiner Programme unter Windows 7 bestätigen.
Mein About-Dialog wird in dem von Dir beschriebene Ablauf auch zu einem Zombie und lässt sich nicht mehr schließen. Erst beim Beenden des Hauptprogramms wird das Fenster mit beendet. War mir so bisher nicht aufgefallen.

Grüße, Christoph