This commit is contained in:
Ansgar Becker
2010-06-10 08:37:44 +00:00
parent 51158e7700
commit 7d29518d7f

View File

@ -8624,7 +8624,7 @@ begin
Result := nil; Result := nil;
if Grid = DataGrid then if Grid = DataGrid then
Result := DataGridResult Result := DataGridResult
else begin else if Assigned(Grid) then begin
CurrentTab := Grid.Parent as TTabSheet; CurrentTab := Grid.Parent as TTabSheet;
for QueryTab in QueryTabs do begin for QueryTab in QueryTabs do begin
if QueryTab.TabSheet = CurrentTab then begin if QueryTab.TabSheet = CurrentTab then begin