Commit 93eedde9 authored by Michael W. Vogel's avatar Michael W. Vogel
Browse files

LCL: Fixed TDateEdit/TTimeEdit controls break the tab order. Issue #32533

git-svn-id: trunk@56031 -
parent 548728f3
......@@ -407,18 +407,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 }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment