【搞定】显示问题**

zhjkill

远程就怎么难啊

yancm

是从桌面继承而非待办任务吗？ 那么在grid的OnResize事件里面参考下面的代码动态给您的字段长度赋值。

下面的代码来源于业务模型\协同系统\任务\任务中心信息\任务导航(基类)。这也是为什么待办任务可以自动收缩，而您的没有收缩的原因。
注意，按照您的列号来写。待办任务是3列，您的grid看上去是2列。需要做些调整。
procedure TTASKNAV.GridResize(Sender: TObject);
begin
  Grid.Columns[1].Width := Grid.Width - Grid.Columns[0].Width - Grid.Columns[2].Width;
end;

zhjkill

早用过了，没效果

zhjkill

procedure TCORPCULNavigation.GridResize(Sender: TObject);
begin
  Inherited;
// 主题列的宽度自动适应
  Grid.Columns[1].Width := Grid.Width - Grid.Columns[0].Width;
end
是两条

zhjkill

远程看下就明白了，你们怎么会拖的

zhjkill

http://bbs.justep.com/showthread.php?threadid=20408看1楼的图

zhjkill

国产软件的悲哀。。。。。

yancm

不需要远程。我可以理解您描述的问题
14楼的代码写反了
procedure TCORPCULNavigation.GridResize(Sender: TObject);
begin
  Inherited;
// 主题列的宽度自动适应
  Grid.Columns[0].Width := Grid.Width - Grid.Columns[1].Width; //原来的0和1互换一下
end

另外，您Columns[1]的宽度设置不要大于100。还有错位的问题，可以看下grid的anchors是否选择了[akLeft,akTop,akRight,akBottom]

zhjkill

可以看下grid的anchors是否选择了[akLeft,akTop,akRight,akBottom]
是选还是不选 具体点

zhjkill

全选了就不显示了