需要在子窗口的onClose事件中吧Action = caFree; 就可以了。
procedure Tfrm_aa.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
2023-12-14 10:08:57
需要在子窗口的onClose事件中吧Action = caFree; 就可以了。
procedure Tfrm_aa.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
下一篇:MySQL字符串连接函数