要求可以动态的画图,这个已经实现了
可是如何动态的让它响应事件
比如说画个圆后点击它让它响应一个事件
可是如何动态的让它响应事件
比如说画个圆后点击它让它响应一个事件
解决方案 »
- 如何实现像IDE中鼠标拖拽全选控件的功能?
- 请问如何实现多核CPU限制问题
- 删了那个帖子,重新提问,分数加到100,请大家帮忙解决,谢谢~
- 请大家帮忙:如何将文本文件与二进制文件相互转换????
- 一段小程序,出了什么问题
- 找不到动态链接库?
- 关于CLIENTDATASET新增记录和编辑记录的问题
- 我在前台(dephi)中怎么取得服务器的时间(c/s三层模式)
- 送50分:调试失败,高手救我:李维《ADO/MTS/COM+高级程序设计》第8章:如何在com+执行环境中建立com+对象?
- 谁知道什么是 增量查询 ?
- 这个贴子删除就删除吧;
- 如何利用循环一次给所有mdichild窗口中的text框赋值?up有分!
要作的话可以用DELPHI+MO;
还可以作MAPINFO的二次开发。你只用DELPHI能实现什么GIS!!!
----------------------------------------------
riff ur life
当初我也是这样设计的,
后来发现这样做难度太大,
放弃了,你怎么响应用户的操作??
用脚本??
当然这是最好的办法了,
可是难度也是最大的,我没做成,
呵呵,可能是水平太凹了吧还是用MAPINFO吧,
这样好一点
以后联系:
24737165
riff ur life
功能不错,嵌入式,文档也做得不错
procedure jlkasjdlfkjasdlkjf(Sender :TObject); asdfasd :=TShape.Create(self);
with asdfasd do
begin
onClick :=jlkasjdlfkjasdlkjf;
end;
EMAIL: [email protected]
有例子
安装完mapinfo
unit MyControl;
uses
Classes, Controls, SysUtils;
Type
……
TFoundFileEvent = procedure(FileName: Sting; Sr:TsearchRec) of Object;
//声明事件实例
Private
FOnFoundFile: TFoundFileEvent;
Procedure ProcessName(Fname: String; SR: TSearchRec);
Implementation
Procedure MyControl.ProcessName(Fname: String; SR: TSearchRec);
Begin
If Assigned(FonFoundFile) then //事件对象是否为空
FOnFoundFile(FName,SR);
End;
对于方法指针类,