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

[baumina]

Bescheuerter WorkAround, aber funktioniert erstmal:

Delphi-Quellcode:

procedure TForm9.Timer1Timer(Sender: TObject);
var
  Merk : TWindowState;

begin
  If not Application.Active then
  begin
    Merk := Application.MainForm.WindowState;
    Application.Minimize;
    Application.Restore;
    Form10.Close;
    Application.MainForm.WindowState := Merk;
  end else
  begin
    Form10.Close;
  end;