请问这样的功能在TIB里面如何实现？**

atiger · 发表于 2008-1-18 11:59:49

现在我想要实现左边数据选择能定位到右边的甘特图GanttBar
参考： http://bbs.justep.com/forum.php?mod=viewthread&tid=6952

dupit · 发表于 2008-1-18 15:36:40

上面的帖子我看过的，没有完整的代码？ 16楼的资源包导入格式不对。
给个完整的代码，谢谢！

atiger · 发表于 2008-1-18 17:15:43

http://bbs.justep.com/forum.php?mod=viewthread&tid=6952 16楼的包在19楼重新做了，用19楼的就可以了

dupit · 发表于 2008-1-21 10:02:23

右边的GanttBar不允许拖动，代码如何实现？

dupit · 发表于 2008-1-21 10:29:57

左边数据源Click事件代码如下：点击最后一条数据时 GanttBar 的焦点没定位？
var
  lGanttBar :TPSGanttBar;
begin
  lGanttBar :=PSGanttGraph1.GetGanttBar(dsData.DataSet.RecNo,1);
if PSGanttGraph1.FocusBar<> lGanttBar then
  begin
FSelectBar := lGanttBar;
PSGanttGraph1.Repaint;
  end;

如何改

dupit · 发表于 2008-1-21 10:40:52

35楼的 if PSGanttGraph1.FocusBar<> lGanttBar then 隐掉就可以了

atiger · 发表于 2008-1-21 11:10:29

ok，那结贴了

dupit · 发表于 2008-1-21 11:46:23

右边的GanttBar不允许拖动，代码如何实现？还没解决啊

atiger · 发表于 2008-1-21 13:32:12

哦，那你取消这个控件的Enable属性，设置为false，这样能满足你的需求吗？

dupit · 发表于 2008-1-21 14:03:13

Enable属性，设置为false ；这样我点中 GranttBar 就不能定位到数据了。
还有其他方法没？

		自动登录	找回密码
密码			立即注册