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;