工业图形、信号灯图形控件

[wufansheng]

有哪位老大知道有这种类型的控件吗？就是可以再运行时动态的拖拉信号灯到指定位置，并可以动态的改变信号灯显示状态

[wufansheng]

引用 2 楼 hongss 的回复:

用过一个AutoLED控件，基本能实现你要的功能，度娘一下吧

能告诉我具体的控件名吗？

[静_海]

不借助控件，自己做也费不了多少事。 用 TImage 显示信号灯。要是图形很简单，用 TShape 也行。需要设置 MouseDown 和 MouseMove 两个事件例程。前者用来捕捉鼠标按下时的位置，后者用来移动构件，以此实现拖动效果。我以前做过类似东西，取其中片段做示例，希望有点用。假如窗口类是 TmyForm, 构件名叫做 mgLight, 声明一个 TPoint 类型变量 MousePos，用来记录鼠标初始位置。 procedure TmyForm.mgLightMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if not (ssLeft in Shift) then Exit; MousePos.X := X; MousePos.Y := Y; end; procedure TMyForm.mgLightMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if not (ssLeft in Shift) then Exit; mgLight.Left := mgLight.Left + X - MousePos.X; mgLight.Top := mgLight.Top + Y - MousePos.Y; end; 够简单吧？动态改变信号灯可以更换 TImage 图片或改变 TShape 色彩。

[lhy]

自己画最方便。

[sololie]

IOComp 是宇宙超级无敌最强高富帅买切糕第一 工控组件。

[oushengfen]

IOComp 终于也有人说了这个组件啊,以前我刚用时,好少资料

[zjgsky]

IOComp 一直在用，可惜不支持XE3！

[u010705885]

BeauGauge 工业控件也许可以.

[u010705885]

引用 6 楼 sololie 的回复:

IOComp 是宇宙超级无敌最强高富帅买切糕第一 工控组件。

BeauGauge的, 比Iocomp如何, 嘿嘿

[tsys2000]

引用 11 楼 u010705885 的回复:

[quote=引用 6 楼 sololie 的回复:] IOComp 是宇宙超级无敌最强高富帅买切糕第一 工控组件。

BeauGauge的, 比Iocomp如何, 嘿嘿 [/quote] 恩, 比Iocomp好要看的多.

[sololie]

好看跟好用有啥关系嘛。。。介绍介绍BeauGauge有什么Iocomp没有的功能，或者性能效率比Iocomp高多少之类的才关键吧

[火龙岛主]

引用 13 楼 sololie 的回复:

好看跟好用有啥关系嘛。。。介绍介绍BeauGauge有什么Iocomp没有的功能，或者性能效率比Iocomp高多少之类的才关键吧

都重要，一个是感官，一个是感受。 如果性能都一样，感官就决定感受。

[山东蓝鸟贵薪]

u010705885 这是什么控件呀，有DELPHI7版本 的吗 分享一下吧

[yadan_tanchfeng]

[yct0605]

最重要的是找到一个完美破解的，要不然用了不稳定的。

[sololie]

引用

都重要，一个是感官，一个是感受。 如果性能都一样，感官就决定感受。

好不好用不是针对用户的而是针对开发者的吧，拥有别人不可替代或更优越的功能和性能才是最重要的。那个BeauGauge 的感官神马的东东，貌似也没多少技术含量，也就是些图片，Iocomp也可以自己换更好看的图片嘛。

[BillYongke]

BeauGauge的控件在哪里可以下载？整下来研究一下

[dongmei757]

学习，学习，标记一个

[lyhoo163]

标记,路过，分享。

[zy33nuaa]

BeauGauge收费吧？只能用几个免费的？小弟菜鸟。。。

[Q_188136923]

求 XE版本的 iocomp控件！可否给个下载地址或 发一个到我邮箱
[e-mail]