如何检测ALT键已按下?送100分(100分)

如何检测ALT键已按下?送100分

{其实就是使用GetKeyboardState}
function CtrlDown: Boolean;
var
State: TKeyboardState;
begin

GetKeyboardState(State);
Result := ((State[VK_CONTROL] and 128) <> 0);
end;

function ShiftDown: Boolean;
var
State: TKeyboardState;
begin

GetKeyboardState(State);
Result := ((State[VK_SHIFT] and 128) <> 0);
end;

function AltDown: Boolean;
var
State: TKeyboardState;
begin

GetKeyboardState(State);
Result := ((State[VK_MENU] and 128) <> 0);
end;

在OnShortCut中处理
var
Shift: TShiftState;
begin
Shift := KeyDataToShiftState(Msg.KeyData);
不就可以了：）

procedure TForm1.FormKeyDown( Sender: TObject;var Key:Word, Shift:TShiftState );
begin
if key = VK_MENU then
begin
................
end;
end;

procedure TfrmEng.ToolButton7MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
if Shift = ssAlt then
。。。
end;

procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if key = 18 then
begin
...处理过程
end;
end;