delphi 窗体指针变量

基类自动释放 窗体变量

 PFrmPtr: ^TForm;

//继承改窗体的变量地址 不为空 置为nil
if Assigned(PFrmPtr) then
PFrmPtr^ := nil;