问题描述

delphi如何做到动态响应消息?

比如有三个按钮,
在按钮1按下鼠标后, 在按钮2上面释放鼠标,
结果是按钮1在响应释放鼠标的事件.

怎样做到 在按钮1按下鼠标后, 在按钮2释放就由按钮2响应,在按钮3释放就由按钮3响应?

解决方案

处理mouseup而不是mousedown或者click事件就可以了。

解决方案二：

设定一个状态，然后再MouseDown记录状态，MouseUp释放状态，然后再相应的处理单机事件

解决方案三：

为所有按钮控件添加相同的OnMouseUp事件，
if （sender as Tbutton）=button1 then showmessage（‘按钮1被释放’）
else if （sender as Tbutton）=button2 then showmessage（‘按钮2被释放’）
else if （sender as Tbutton）=button3 then showmessage（‘按钮3释放’）