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

LCL: do not set ActiveControl if Parent=nil, bug #17716

Browse Source 
git-svn-id: trunk@27900 -
This commit is contained in:
mattias 2010-10-27 19:21:53 +00:00
parent 41a9300a55
commit 3b1f0f9a20
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/customform.inc
View File

@ -2577,7 +2577,8 @@ begin
// activate focus if visible // activate focus if visible
if Showing and (not (csDestroying in ComponentState)) then if Showing and (not (csDestroying in ComponentState)) then
begin begin
if Assigned(ActiveControl) and (not (csDesigning in ComponentState)) and Assigned(Parent) then if Assigned(ActiveControl) and (not (csDesigning in ComponentState))
and (Parent=nil) then
begin begin
// automatically choose a control to focus // automatically choose a control to focus
{$IFDEF VerboseFocus} {$IFDEF VerboseFocus}