起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 98|回复: 7

界面面板问题**

[复制链接]
发表于 2008-10-8 10:43:54 | 显示全部楼层 |阅读模式
怎么才能把透明网格自动改变宽度。

12.jpg

98.96 KB, 下载次数: 65

回复

使用道具 举报

发表于 2008-10-8 10:47:02 | 显示全部楼层
参考业务模型\协同系统\任务\任务中心信息\任务导航(交办)2中的代码设置
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-10-8 10:53:24 | 显示全部楼层
看不懂,代码太多。
回复 支持 反对

使用道具 举报

发表于 2008-10-8 10:54:45 | 显示全部楼层
procedure TPOSTNAV2.GridResize(Sender: TObject);
begin
  Grid.Top := TRTLConsts.NavTopMove;
  Grid.Left := TRTLConsts.NavLeftMove;
  Grid.Columns[1].Width := Grid.Width - Grid.Columns[0].Width - Grid.Columns[2].Width - TRTLConsts.NavLeftMove;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-10-8 11:14:53 | 显示全部楼层
TRTLConsts.NavLeftMove;
什么意思
回复 支持 反对

使用道具 举报

发表于 2008-10-8 11:24:16 | 显示全部楼层
协同常量库里面定义好的函数,用来返回一个整数
static function TRTLConsts.NavLeftMove: Integer;
begin
  Result := 12;
end;

static function TRTLConsts.NavTopMove: Integer;
begin
  Result := 8;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-10-9 14:40:24 | 显示全部楼层
引用协同常量库,不认TRTLConsts
回复 支持 反对

使用道具 举报

发表于 2008-10-9 15:03:27 | 显示全部楼层
是不是缺了uses,或者是项目配置里面没有引用?
我这里是有这个类的。

a.jpg

37.39 KB, 下载次数: 44

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-23 03:16 , Processed in 0.044850 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表