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

lcl: don't set ActiveControl for design-time forms (issue #0017951)

Browse Source 
git-svn-id: trunk@28305 -
This commit is contained in:
paul 2010-11-18 02:05:43 +00:00
parent 91e0cd6ae7
commit d94f345335
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/wincontrol.inc
View File

@ -5164,10 +5164,9 @@ begin
DebugLn('TWinControl.WndProc LM_SetFocus ',DbgSName(Self)); DebugLn('TWinControl.WndProc LM_SetFocus ',DbgSName(Self));
{$ENDIF} {$ENDIF}
Form := GetParentForm(Self); Form := GetParentForm(Self);
if (Form<>nil) if Assigned(Form) and not (csDesigning in Form.ComponentState) and
and (not (csDestroyingHandle in ControlState)) not (csDestroyingHandle in ControlState) and not (csDestroying in ComponentState) then
and (not (csDestroying in ComponentState)) begin
then begin
if not Form.SetFocusedControl(Self) then Exit; if not Form.SetFocusedControl(Self) then Exit;
Message.Result := 0; Message.Result := 0;
end; end;