九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

將釋放寫在子窗體的FORMCLOSE()里面

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

關(guān)閉TABSHEET的時候,遍歷找到它里面的窗體,然后調(diào)用窗體的close()方法

procedure TFormMain.CloseTabsheet;
var
  i: Integer;  
begin
  if RzPageControl1.PageCount <= 0 then Exit;
  if RzPageControl1.ActivePage = nil then exit;
  for i := 0 to RzPageControl1.ActivePage.ControlCount - 1 do
    if RzPageControl1.ActivePage.Controls[i] is TForm then
    begin
      TForm(RzPageControl1.ActivePage.Controls[i]).Close;
      Break;
    end;
  RzPageControl1.ActivePage.PageControl := nil;
  RzPageControl1.ActivePage.Free;
  RzPageControl1.SelectNextPage(true);
end;