828
社区成员
发帖
与我相关
我的任务
分享一个比较难的！如何在Image中用带箭头的线连接二个动态创建的Button?
是这样的：
ScrollBox中有一Image，Imaage里有若干个动态创建的Button，我是通过内存流的方式将动态创建的Button的信息（如属性，位置等）存储到一个Image字段中(SQL2000),然后调用时读出来。
现在碰到一个问题是：
我想用一条带箭头的线来连接各个Button，箭头指向后面的Button中，如有A、B、C三个Button，先连接A到B，那么A到B之间有一条带箭头的线，箭头指向B，如此类推；
不知没有没样的控件？谢谢！！！
ScrollBox中有一Image，Imaage里有若干个动态创建的Button，我是通过内存流的方式将动态创建的Button的信息（如属性，位置等）存储到一个Image字段中(SQL2000),然后调用时读出来。
现在碰到一个问题是：
我想用一条带箭头的线来连接各个Button，箭头指向后面的Button中，如有A、B、C三个Button，先连接A到B，那么A到B之间有一条带箭头的线，箭头指向B，如此类推；
不知没有没样的控件？谢谢！！！
...全文
请发表友善的回复…
发表回复
Best999 2004-10-17
- 打赏
- 举报
没找到
lincats99 2004-10-16
- 打赏
- 举报
有个控件叫allow什么的，或者你可以照mastering delphi x中的控件篇自己做一个，或者那本书中的原代码中有，画线条连的画太不好了。这样用内存流save in database.
Best999 2004-10-14
- 打赏
- 举报
楼上的：这个迭件叫什么名字？我怎么找不到？
ssq237712 2004-10-13
- 打赏
- 举报
不要用Image,写一个画箭头的类，也很简单的。
TLineArrow = class(TGraphicControl)
...
protected
procedure paint;override;
public
property FromPoint: TPoint read FFromPoint write SetFromPoint;
property ToPoint: TPoint read FToPoint write SetToPoint;
end;
在paint过程里根据开始、结束点绘制线，在SetxxxPoint里调用：Invalide;Update;
button移动的时候，设置线的点位置
TLineArrow = class(TGraphicControl)
...
protected
procedure paint;override;
public
property FromPoint: TPoint read FFromPoint write SetFromPoint;
property ToPoint: TPoint read FToPoint write SetToPoint;
end;
在paint过程里根据开始、结束点绘制线，在SetxxxPoint里调用：Invalide;Update;
button移动的时候，设置线的点位置
Best999 2004-10-13
- 打赏
- 举报
button移动时线也跟著动
SharpExpress 2004-10-13
- 打赏
- 举报
http://www.playicq.com/
上有这类控件DevExpress的流程图控件
上有这类控件DevExpress的流程图控件
Best999 2004-10-13
- 打赏
- 举报
还有谁做过这方面的？
asj 2004-10-13
- 打赏
- 举报
呵呵，准备作工作流么？
sunnauq 2004-10-13
- 打赏
- 举报
既然可以存储button 的位置，那箭头的位置不就也确定了吗，你直接在image上画箭头不就可以了吗
Best999 2004-10-13
- 打赏
- 举报
顶呀
