Problems closing MDI form

[BasSchouten]

In my application an MDI form is opened (child) with the following code:

Form_Faktuur = TForm_Faktuur.Create(Application);

The OnClose event of the form contains:

procedure TForm_Faktuur.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

Somewhere else in the application i want to check if the form exists, and if so, close it. I'v tried the following:

  if Form_Faktuur <> nil then
     if Form_Faktuur.Visible then
        Form_Faktuur.Close;

but i get an access violation when the second if statement executes ... I thought that freeing the form would set the form variable to NIL .. but apparently it doenst.

anyboy got any idea what i'm doing wrong??
Bas Schouten
System Development & Webdesign
CBIS BV Holland

http://www.cbis.nl

 

[bonnScott]

Hi,
about your MDI child form closing problem, you don't need to test if it is visible. Provided your 'Faktuur' child form is not nil it is existing and you thus only need to close it by calling the 'close' method of the form.
ok?
cheers,
BonnScott

 

[BasSchouten]

Thanks,

that did the trick! Bas Schouten
System Development & Webdesign
CBIS BV Holland

http://www.cbis.nl