GraphicTab 这个可以替换你用的有问题的控件。
参考:业务模型\协同系统\面板功能\我的功能\我的待办
procedure TMyTaskDoc.tbTabChange(Sender: TObject; Index: Integer);
begin
if Index = FTabIndex then exit;
if not SaveQuery then
begin
tbTab.Index := FTabIndex;
SysUtils.Abort;
end;
if Index = 0 then
ViewMode := TViewMode.vmTaskGrid
else if Index = 1 then
ViewMode := TViewMode.vmTaskDetail
else
ViewMode := TViewMode.vmTaskTrack;
FTabIndex := Index;
end;