How to Get Current KeyBorard''s State?

[SonicChen]

i need to know run time Key State such as Shift and Ctrl and Alt.

way to gold shines more than gold

 

[Stretchwickster]

A useful type that delphi provides with most mouse and key events is TShiftState. You can check it to see the state of Shift, Alt and Ctrl keys.

Example:
I have put this code in the OnKeyDown event of an TEdit box.

procedure TForm1.Edit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if Shift = [ssShift] then ShowMessage('Shift pressed');
  if Shift = [ssAlt] then ShowMessage('Alt pressed');
  if Shift = [ssCtrl] then ShowMessage('Ctrl pressed');
end;

Alternatively check out this link:

http://delphi.about.com/cs/adptips2000/a/bltip0400_3.htm

Clive

 

[buho]

Check GetAsyncKeyState/GetKeyState in the SDK.

buho (A).

 

[SonicChen]

yeah winapi better.
thanks

way to gold shines more than gold

 

[Stretchwickster]

GetKeyboardState (found in the link I provided earlier) is a winapi call!

Clive