Mega Code Archive
Shift, ctrl, alt key checking
<![CDATA[
Question:
How can I determine if the Shift, Alt, or Ctrl key is
depressed at any given time?
Answer:
The following example demonstrates checking if the Shift key is
pressed during a menu item selection. The example presents
functions for testing the status of the Alt, Ctrl, and
shift keys.
Example:
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;
procedure TForm1.MenuItem12Click(Sender: TObject);
begin
if ShiftDown then
Form1.Caption := 'Shift' else
Form1.Caption := '';
end;
]]>