比如在OnMouseDown里吧,有一个参数是Button,他代表了是由哪个鼠标按键引发的这个事件,而Shift则说明了此时按键们的状态(不但包括左键,右键,还有alt,ctrl等键盘按键,具体可以看TShiftState的定义,在Classes.hpp里)。
代码如下,如果显示L,表示左键按下了,显示R,表示右键按下了,都显示就都按下了。
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
AnsiString sButtonState;
if (Shift.Contains(ssLeft))
{
sButtonState += "L";
}
if (Shift.Contains(ssRight))
{
sButtonState += "R";
}
Caption = sButtonState;
}
代码如下,如果显示L,表示左键按下了,显示R,表示右键按下了,都显示就都按下了。
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
AnsiString sButtonState;
if (Shift.Contains(ssLeft))
{
sButtonState += "L";
}
if (Shift.Contains(ssRight))
{
sButtonState += "R";
}
Caption = sButtonState;
}
鼠标按键事件处理
本文介绍了一个简单的鼠标按键事件处理示例,通过Delphi代码演示如何响应鼠标的左键和右键按下事件,并读取Shift状态。该代码适用于需要捕捉用户鼠标操作的应用程序。
1353

被折叠的 条评论
为什么被折叠?



