Home/ Questions/Q 584723
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-13T14:55:40+00:00

I have an issues where I am trying to determine if a reference to

  • 0

I have an issues where I am trying to determine if a reference to an object is valid. But it seems to be returning strange results.

procedure TForm1.Button1Click(Sender: TObject);
  var form1 : TForm;
      ref2 : TControl;
begin
  form1 := TForm.Create(nil);
  form1.Name := 'CustomForm';
  form1.Parent := self; //Main Form

  form1.Show;

  ref2 := form1;
  showmessage(ref2.ClassName+' - '+ref2.Name+' - '+BoolToStr(ref2.visible,true));
  freeandnil(form1);
  showmessage(ref2.ClassName+' - '+ref2.Name+' - '+BoolToStr(ref2.visible,true));
end;

The first showmessage returns – “TForm – CustomForm – True” (Just like I would expect it to).

The second showmessage return – “TForm – – False”. I was actually hoping for some kind of access violation that I could then trap and know that the reference isn’t valid.

In my application I need to compile a list of random TForm descendants as they are created and then check later if they have gone away (or are not visible). Unfortunately it is a plugin based system so I can go change all of these Forms to post a “I’m done Message.”

Would code like this be safe to use (assuming I actually am checking for access violations)? Does anybody have any ideas what is happening.

Thanks

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    The problem is that with a certain likelyhood the memory accessed is still reserved by the Delphi memory manager. In that case Windows does not generate any kind of access violation, because that memory belongs to you!

    One possibility is to switch to a different Delphi memory manager which can detect the use of freed objects. FastMM4, for example, has several “memory hygiene” checks, which are very useful for debugging, but even then you won’t catch all of these errors immediately.

    You can download FastMM4 from SourceForge.

    • 0