fix potential AV on exit

This commit is contained in:
Basile Burg 2016-11-04 15:22:22 +01:00
parent c203192882
commit 6ed96833c7
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 2 additions and 0 deletions

View File

@ -1306,6 +1306,8 @@ var
site: TControl;
anchl: TAnchorKind;
begin
if csDestroying in ComponentState then
exit;
for i := 0 to fWidgList.Count-1 do
begin
widg := fWidgList.widget[i];