procedure tform1.onbutton1click(sender)
begin
image.onmousemove:=imagemm(Tobject(image));
end;procedure tform1.imagemm(sender:object)
begin
//
//
end;
begin
image.onmousemove:=imagemm(Tobject(image));
end;procedure tform1.imagemm(sender:object)
begin
//
//
end;
解决方案 »
- Java调用Delphi的DLL问题
- 把对话框选定的文件复制指定目录
- 如何在点击ComboBox时弹出多列可以让用户选择某一个?或者是表格形式?而不是默认的列表(单列)?
- Delphi下调用MySql5的存储过程疑问:只能采用TQuery控件,而不能采用TADOStoredProc控件吗(采用它总是报语法错误)?
- 俺想实现图文混排编辑器,但问题极多,请高手指点迷津
- 求改注册表限制用户只能用100次的代码 (加急在线中)!!!
- 在 DBChart 上画线的问题 !!!!!!
- 如何在程序执行时手动改变ADO数据库连接?
- 如何把double类型的小数点控制在两位,而不出现类似9.8999999999这样的数。
- 都说www.51delphi.com上有Ehlib2.0,可是我怎么就没找到?那位大虾能给一个精确的网址?100分奉送!
- 没人会SOAP吗?天啊...我太超前了,110分想送,请进
- 请教:WM_COMMAND消息如何使用,我没有msdn,请大家帮忙。
procedure TForm1.ImgMouseMove(Sender: TObject; Shift: TShiftState;
X,Y: Integer);
begin
Caption:=IntToStr(X)+'/'+IntToStr(Y);;
end;
你动态生成的TImage 的 Name 为:ManulCreateImage 则如下就可以了:
ManulCreateImage.OnMouseMove:=ImgMouseMove;这样就行了。不过注意你自己定义的OnMouseMove过程要和标准的
Image.OnMouseMove 一致否则会出错的。