如何在shape控件里增加一个属性,能使程序给它赋值(30分)

  • 主题发起人 主题发起人 陈君凯
  • 开始时间 开始时间

陈君凯

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在shape控件里增加一个属性,能使程序给它赋值。
本人不胜感激
 
shape赋什么值?top?height?color?……
 
是不是这样:

TMyShape=class(TShape)
private
FYourProp:integer;
property
YourProp:integer read FYourProp write FYourProp;
end;
 
你好,尊敬的朋友:
感谢你给我会的贴子。我最近接了一个活儿,也算是我的毕业设计。老师要求做一个动态显示一个图的关键路径。图的各个节点是由一个工程的各个工序组成。各个工序的之间的权值是存放在一个数据库中的。老师要求是要求按月份查询。因为各个工序是固定不变的,所变的只是工序之间的权值。因此我的想法是:用shape控件空间在窗体上画出这些工序(以圆圈表示)。然后再给shape控件增加一属性,是程序能给它赋值,从数据库调出来的数据直接赋给它们,再由关键路径的算法求出这个关键路径,然后再给各个关键路径之间画上颜色以表示出来。
大概思想是这样的,不知你有和更高的想法。望来信指点。我不胜感激。如果你是郑州人,回头我请你吃饭,地点由你定。如果不是的话,有缘到郑州,我一定会尽地主之谊的。呵呵。
----------戏曲天地---------
 
注意换行……
 
你好,尊敬的朋友:
感谢你给我会的贴子。我最近接了一个活儿,也算是我的毕业设计。老师要求做一个动态显示一个图的关键路径。图的各个节点是由一个工程的各个工序组成。各个工序的之间的权值是存放在一个数据库中的。老师要求是要求按月份查询。因为各个工

序是固定不变的,所变的只是工序之间的权值。因此我的想法是:用shape控件空间在

窗体上画出这些工序(以圆圈表示)。然后再给shape控件增加一属性,是程序能给它

赋值,从数据库调出来的数据直接赋给它们,再由关键路径的算法求出这个关键路

径,然后再给各个关键路径之间画上颜色以表示出来。

大概思想是这样的,不知你有和更高的想法。望来信指点。我不胜感激。如果你是郑

州人,回头我请你吃饭,地点由你定。如果不是的话,有缘到郑州,我一定会尽地主

之谊的。呵呵。
----------戏曲天地---------
 
你好,尊敬的朋友:
感谢你给我会的贴子。我最近接了一个活儿,也算是我的毕业设计。老师要求做一

个动态显示一个图的关键路径。图的各个节点是由一个工程的各个工序组成。各个工

序的之间的权值是存放在一个数据库中的。老师要求是要求按月份查询。因为各个工

序是固定不变的,所变的只是工序之间的权值。因此我的想法是:用shape控件空间在

窗体上画出这些工序(以圆圈表示)。然后再给shape控件增加一属性,是程序能给它

赋值,从数据库调出来的数据直接赋给它们,再由关键路径的算法求出这个关键路

径,然后再给各个关键路径之间画上颜色以表示出来。

大概思想是这样的,不知你有和更高的想法。望来信指点。我不胜感激。如果你是郑

州人,回头我请你吃饭,地点由你定。如果不是的话,有缘到郑州,我一定会尽地主

之谊的。呵呵。
----------戏曲天地---------
 
大概的算法会吧,你可别说不会。 用image.
最好用一数组记录工序的坐标。
每重新算一次就重画一遍, 画的过程中判断是不是关键路径
(你肯定得存路径),是的话就用另一种颜色。

 
接受答案了.
 
后退
顶部