我在Image1.OnMousuUp里写了一段代码

Question

然后我想,用button 执行这段代码,这样就不用重复写这段代码内容?改如何实现？

Answer 1

代码写在button1的click事件里
调用就button1.click;

Answer 2

你应该看看这里http://community.csdn.net/help/GetUsablePoint.htm 1：每天只要发布帖子就可以获得30个可用分。你这个贴子仅20分，实际你发赚就赚了30分。所以你赚了……

Answer 3

我觉得最好应该是为这段代码单独写一个过程或函数，然后在Image1的MousuUp和Button1的Click事件中调用

Answer 4

to linzi
 代码写在TForm1.Button2Click里,其他进程可以用 Button1.click 调用 写在TForm1.Image1MouseUp里,其他进程却不能用Image1.Mouseup里实现？是不是有其他方法的？

Answer 5

楼主的代码得用很简单。用Botton的单击事件调用Image1.OnMousuUp只用一句话就可以解决。关键是给的至少应该高于30分，因为发贴提瓿就系统就会分配给发贴人30分的。

Answer 6

可以在别的程序中调用Image1.Mouseup
比如:
Image1MouseDown(nil,mbLeft,[ssShift],0,0);