最好的方法是用Delphi做一个ActiveX控件或者做一个ActiveX Form, 将所有的画图
功能通通封装再ActiveX中.
做ActiveX较Active Form方便一些, 但一定要有一个Windowed Control, 例如:
1. 继承一个TScrollBox类
2. 再TScrollBox中加一个TControlCanvas
3. 定义绘图方法
4. 再Delphi中调试好注册成一个Delphi控件安装到Delphi中
5. File|New 创建一个ActiveX控件, 选定你的控件, 让Delphi将其封装成OCX
做一个Active Form有所不同:
1. File | New 创建一个ActiveX Form
2. 再空的 Form 上加一个 TPaintBox (与新建Application同)
3. 定义绘图方法及
4. 再TLB中追加方法和属性
5. 编译成OCX
6. 新建一个APP插入该OCX编译成EXE作为ActiveX Form的测试程序
7. 重新打开ActiveX Form工程, 将Run | Parameter指向上述APP
8. 调试你的ActiveX
两种方法各有利弊, ActiveX 控件容易制作和调试, 就如同写自己的Delphi控件一样
Active Form功能更强大更灵活, 可以再Form上加入自己的控制, 如菜单,按钮...