页面上放了个rzpangecontrol,两个PAGE,每个page上放了一个tsgrid。
切换到第二个page时出现Cannot focus a disabled or invisible window错误。
然后跳到tsgrid.pas中的如下代码中的红色位置,不知为什么,请指教!
procedure TtsBaseGrid.DoExit;
begin
if FInHidingGridControl then Exit; Inc(FInDoExit);
try
try
if not CanEndCellEdit(True) then
begin
SetFocus;
Exit;
end;
except
on Exception do begin SetFocus; raise; end;
end;
finally
Dec(FInDoExit);
end; if not InDesignMode then CheckDropDownOff(False);
ResetComboSearchValue;
if Assigned(FGridControl) and FGridControl.Visible then FGridControl.Invalidate;
if Assigned(OnExit) then OnExit(Self);
end;
切换到第二个page时出现Cannot focus a disabled or invisible window错误。
然后跳到tsgrid.pas中的如下代码中的红色位置,不知为什么,请指教!
procedure TtsBaseGrid.DoExit;
begin
if FInHidingGridControl then Exit; Inc(FInDoExit);
try
try
if not CanEndCellEdit(True) then
begin
SetFocus;
Exit;
end;
except
on Exception do begin SetFocus; raise; end;
end;
finally
Dec(FInDoExit);
end; if not InDesignMode then CheckDropDownOff(False);
ResetComboSearchValue;
if Assigned(FGridControl) and FGridControl.Visible then FGridControl.Invalidate;
if Assigned(OnExit) then OnExit(Self);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货