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

Merged revision(s) 56031 #93eedde9b9 from trunk:

Browse Source 
LCL: Fixed TDateEdit/TTimeEdit controls break the tab order. Issue 
........

git-svn-id: branches/fixes_1_8@56039 -
This commit is contained in:
maxim 2017-10-12 22:37:24 +00:00
parent 24186cd2fc
commit 74b3aedbc4
1 changed files with 3 additions and 11 deletions

14
lcl/groupededit.pp
View File

@ -413,18 +413,10 @@ implementation
function TGEEdit.PerformTab(ForwardTab: boolean): boolean;
begin
//if not Forward then inherited PerFormTab will set focus to the owning
//TCustomAbstractGroupedEdit, which immediately transfers the focus back to the TGEEdit
//so let TCustomAbstractGroupedEdit do the Performtab in this case
if ForwardTab then
Result := inherited PerformTab(ForwardTab)
if Assigned(Owner) and (Owner is TCustomAbstractGroupedEdit) then
Result := TCustomAbstractGroupedEdit(Owner).PerformTab(ForwardTab)
else
begin
if Assigned(Owner) and (Owner is TCustomAbstractGroupedEdit) then
Result := TCustomAbstractGroupedEdit(Owner).PerformTab(ForwardTab)
else
Result := False;
end;
Result := False;
end;
{ TCustomAbstractGroupedEdit }