Objekt prüfen, ob es noch existiert oder zerstört ist.

[Robert_G]

Zitat von HW764:

Delphi-Quellcode:

if button1.exists then
showmessage ('Es gibt ihn!!!');

Was soll das denn bringen?

@Topic
Das Problem lässt sich IMHO nur lösen wenn der Zeiger beim zerstören auf nil wandert.
Ein simples FreeAndNil sollte genau das erreichen.

Delphi-Quellcode:

Var
  form1: TFrom;
procedure DoSomething();
begin
  form1 := TForm.Create(Application);
  ....
  FreeAndNil(form1);
end;
...
procedure CreateLostForm();
begin
  if not Assigned(form1) then //entspricht einem Vergleich gegen nil, ist aber lesbarer ;)
    form1 := TForm.Create(Application);
end;