cnpack下载地址:http://www.cnpack.org/showdetail.php?id=726&lang=zh-cn
时候创建的子窗体不能关闭,点关闭按钮时子窗体最小化了。
出现这种情况的时候可在窗体的 onClose 事件 中加入 Action := caFree; 即可;
例:
procedure TTInputCLSY.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end;
|
请发表评论