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

LCL: TWinControl.WndProc LM_SETFOCUS: check csDestroying

Browse Source 
git-svn-id: trunk@24418 -
This commit is contained in:
mattias 2010-04-04 23:37:59 +00:00
parent 7e0680c59c
commit e51a89e626
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/wincontrol.inc
View File

@ -5074,7 +5074,8 @@ begin
{$IFDEF VerboseFocus} {$IFDEF VerboseFocus}
DebugLn('TWinControl.WndProc LM_SetFocus ',DbgSName(Self)); DebugLn('TWinControl.WndProc LM_SetFocus ',DbgSName(Self));
{$ENDIF} {$ENDIF}
if not (csDestroyingHandle in ControlState) then if (not (csDestroyingHandle in ControlState))
and (not (csDestroying in ComponentState)) then
begin begin
Form := GetParentForm(Self); Form := GetParentForm(Self);
if (Form <> nil) and not Form.SetFocusedControl(Self) then Exit; if (Form <> nil) and not Form.SetFocusedControl(Self) then Exit;