【搞定】关于甘特图（PSGanttGraph）定位的问题 **

linjiawei

左边用Datagrid显示，右边用甘特图（PSGanttGraph）来显示,
显示都可以了,请问如何让两边关联起来呢,比如我点击DataGrid中的一条数据,同时在甘特图中获得该焦点,如变红。点击甘特图，同时在DataGrid中定位对应的数据。

有没有现成的例子（或者公布一些代码 ），如下图：

yangfan

请楼主参考：
http://bbs.justep.com/forum.php? ... hlight=PSGanttGraph
在13楼和19楼有案例可以参考，谢谢。

linjiawei

这个帖子我已经看过了,13楼和19楼的案例我也导入了,但两边都不能关联起来.

yangfan

请楼主参考下面的案例

linjiawei

请问如何让两边关联起来呢,比如我点击DataGrid中的一条数据,同时在甘特图中获得该焦点,如变红。点击甘特图，同时在DataGrid中定位对应的数据。
就类似TFlowGanttView的功能

linjiawei

人呢,有点急哦

yangfan

还在实验中，我们这边也没有现成的例子。请楼主耐心等待。谢谢。

yangfan

楼主，左边是不能使用Datagrid来显示的，需要使用StringGrid。
利用http://bbs.justep.com/showthread.ph...ht=PSGanttGraph
19楼的案例，在PSGanttGraph的OnFocusBarChange事件中写下面的代码：
procedure TMainForm.PSGanttGraph1FocusBarChange(Sender: TPSGanttGraph; GanttBar: TPSGanttBar; var Allow: Boolean);
begin
  StringGrid1.Row := GanttBar.BarRowID;
end;
还需要在Button1的OnClick事件中这样写：
procedure TMainForm.Button1Click(Sender: TObject);
var
……
begin
  PSGanttGraph1.OnFocusBarChange := nil;
  ……
PSGanttGraph1.OnFocusBarChange := PSGanttGraph1FocusBarChange;
end;

不过如上的做法只能实现从甘特图定位到StringGrid上，而从StringGrid定位到甘特图我们还在想办法，实在是不好搞啊，请楼主见谅，找到方法我们会尽快回帖的。

yangfan

当然啦，楼主也可以找找好方法，一起研究，共同进步：）

linjiawei

好的,不过还是非常感谢。

还有一个小问题：
已经得到甘特图中的其中一个PSGanttBar，用什么方法可以使其获得焦点（变红）呢？