paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-12 21:49:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

- TLCLHandleComponent should not try to destroy handle if did not create it

Browse Source 
git-svn-id: trunk@11193 -
This commit is contained in:
paul 2007-05-25 07:34:35 +00:00
parent 9fe9006a80
commit c8de8a54bc
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/lclclasses.pp
View File

@ -124,9 +124,12 @@ end;
procedure TLCLHandleComponent.DestroyHandle; procedure TLCLHandleComponent.DestroyHandle;
begin begin
HandleDestroying; if FHandle <> 0 then
WSDestroyHandle; begin
FHandle := 0; HandleDestroying;
WSDestroyHandle;
FHandle := 0;
end;
end; end;
function TLCLHandleComponent.GetHandle: TLCLIntfHandle; function TLCLHandleComponent.GetHandle: TLCLIntfHandle;