paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 17:18:17 +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

3
lcl/lclclasses.pp
View File

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