Non-modal form cannot be closed after minimizing parent

Try the next code: It works fine (I tested it)

program Q_21039479;

uses
  Forms,
  Unit1_Q_21039479 in 'Unit1_Q_21039479.pas' {Form1},
  Unit2_Q_21039479 in 'Unit2_Q_21039479.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

//........ Unit1

unit Unit1_Q_21039479;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private{ Private declarations }
  public { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2_Q_21039479;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

end.

//........ Form1

object Form1: TForm1
  Left = 224
  Top = 128
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 96
    Height = 25
    Caption = 'Show Form2'
    TabOrder = 0
    OnClick = Button1Click
  end
end

//........ Unit2

unit Unit2_Q_21039479;

interface

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

type
  TForm2 = class(TForm)
      Timer1: TTimer;
      procedure FormShow(Sender: TObject);
      procedure Timer1Timer(Sender: TObject);
    private{ Private declarations }
    public { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Hide;
end;

end.

//........ Form2

object Form2: TForm2
  Left = 288
  Top = 160
  Width = 512
  Height = 320
  Caption = 'Form2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Timer1: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer1Timer
    Left = 16
    Top = 16
  end
end

//........

emil

above example from site:        http://www.geocities.com/esoftbg/
                              link:        Q_21039479.zip

Thanks for the comments.
The form does not need to stay in memory, the form does not do any processing, it is just a display/status window that is used to display the processing of another task.
Actually, the window is displayed whenever a coms (serial) link goes down, it shows the retry attempts (every 1 or 2 seconds). Once the connection is re-established then form is hidden again - only it does not get hidden if the comms link is re-established when the main form is minimized. The "Timer" part of my demo code was just to demonstrate the problem. There is no timer in the real code.

I'll try the options posted here and let you know how it went - thanks.

Paul

Hello zebada, when the application is minimized, it sets all forms to hidden (not visible), and it seems that your code will show your form2, when delphi does not expect it to be shown, (although, I can not see exactly what is going on from your description), so if "Delphi" has your form as visible := False (even if it is visible) then setting it to false again is just ignored, IE, nothing is done, so you will need to use the window API to show and hide your form . . .

ShowWindow(Form2.Handle,SW_HIDE);

or

ShowWindow(Form2.Handle,SW_SHOW);

but the Delphi Visible property for that form WILL NOT show the true visible state of that form

oh if you want to stick to delphi codeing, you will nedd to double call the hide and show

if the form2 is visible and the visible property is false you will need to call show, before you call Hide

Form2.Show; // delphi thinks the form is hidden, so show it first, to coordinate the actual state with the delphi state
Form2.Hide;

or if reversed situation then

Form2.Hide;
Form2.Show;