Question

Delphi 在不调用系统系统OnKeyUp，OnMouseUp等系统事件的情况下，如何动态的获取TShiftState集合的值？

高分悬赏，那个高手回答一下。在线等待，急急急！！！！！

Answer 1

时间的参数里面就有，可以直接使用，例如：

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

追问

我知道有两个方法，问题就出在，我现在怎么能动态获取，比如说有没有西东函数可以直接获取当前的TShiftState

追答

function GetShiftState: TShiftState;

追问

你是不是瓜皮啊，你骗谁呢。没有这个函数好不好。傻子。

追答

你按F1输入这个函数就明白了，知识少点没关系，基本的品德还是应该要。

Answer 2

用消息拦截吧，也就是HOOK技术，好多DELPHI书中都有介绍（推荐一本《Delphi 下深入Windows 核心编程》第2章第4节专门介绍了键盘鼠标HOOK的使用）。

追问

有没有西东函数可以直接获取当前的TShiftState，现在比较急啊。大哥

追答

function GetShiftState: TShiftState；这个函数在DesignIntf单元。