paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 14:37:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: change active control when a child form is focused too

Browse Source 
git-svn-id: trunk@30057 -
This commit is contained in:
paul 2011-03-29 03:20:19 +00:00
parent 32fe9f12d1
commit a84af3e7a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customform.inc
View File

@ -1289,7 +1289,7 @@ begin
NewActiveControl := nil;
NewFocus := 0;
if (ActiveControl = nil) and (not (csDesigning in ComponentState)) and (Parent=nil) then
if (ActiveControl = nil) and not (csDesigning in ComponentState) then
begin
// automatically choose a control to focus
{$IFDEF VerboseFocus}