liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Update tslvcl.tsf 

application
This commit is contained in:
JianjunLiu 2022-09-06 08:53:59 +08:00
parent 8262c6528f
commit 650d79c677
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
funcext/tvclib/tslvcl.tsf
View File

@ -530,10 +530,17 @@ type tapplication=class(tcomponent)
function Notification(a,op);override;
begin
inherited;
if a=Fmainform and op="recycling" then
if op="recycling" then
begin
if a=Fmainform then
begin
Fmainform := nil;
end
if FApplicationWindow=a then
begin
FApplicationWindow := nil;
end
end
end
function createform(classname,varable);
begin
@ -4951,8 +4958,7 @@ type tapplicationwindow=class(TWinControl)
end
Function DoWMCLOSE(o,e);override;
begin
//Recycling();
DestroyComponents();
Recycling();
_wapi.PostQuitMessage(0);
end
function DoCnNotify(o,e);override;