各位大虾,哥们在写一个工程网络计划作业系统,需要在多个Image上连条线,Image是可以用鼠标移动的,要求在移动时他们之间的线也跟着,就和集成环境中的Diagram的线一样(代码区第三页Diagram)
请大家帮助提供解决方案!

解决方案 »

  1.   

    再定义一个类,这个类是专门处理两个本 Image 与 Image 之间的线性关系的。
    其成员为:
     imgSource:TImage;
     imgDests:TList; //目标 Image 因为可能是多个 Image.所以要用 TList 给串起来。在把这个类包含在你的可以拖放的 Image 中。在处理重画的事件中处理画线。
    再在每个 Image 类中增加一个成员
    LingPoints:array of TPoint; 记录 Image 本身与其它 Image 的联系。不知道我的意思你明不明白。