Solved

How access key-states?

Posted on 1998-05-07
5
208 Views
Last Modified: 2010-04-06
Hi!

Here's an easy one... How can I check whether Ctrl, Alt or L/R Shift is pressed in an IF-statement. Like:

if (bla bla bla) then begin
  CtrlPressed := True;
end;

In good, old DOS (may she rest in peace) there was a particular address where some bits indicated the key-states, but hey!... it's the 90ties now!

Thanks!

//Daniel, Sweden
0
Comment
Question by:Dippen
  • 3
  • 2
5 Comments
 

Accepted Solution

by:
westphal earned 50 total points
ID: 1342815
use the windows function

GetKeyState(nVirtKey : integer)

where nVirtKey is one of the following value:
VK_LSHIFT      
VK_RSHIFT
VK_LCONTROL      
VK_RCONTROL
VK_LMENU      
VK_RMENU

the return value is
if the high-order bit is 1, the key is down; otherwise, it is up. If the low-order bit is 1, the key is toggled. A key, such as the CAPS LOCK key, is toggled if it is turned on. The key is off and untoggled if the low-order bit is 0. A toggle key's indicator light (if any) on the keyboard will be on when the key is toggled, and off when the key is untoggled.
0
 

Expert Comment

by:westphal
ID: 1342816
here is an example:
if you have a form with 2 buttons you can test the GetKeyState with the following code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if GetKeyState(vk_LControl) and $80 = $80 then
   MessageDlg('left control key is down',mtInformation,[mbOk],0)
 else
   MessageDlg('left control key is up',mtInformation,[mbOk],0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if GetKeyState(vk_NumLock) and $1 = $1 then
   MessageDlg('NumLock is toggled',mtInformation,[mbOk],0)
 else
   MessageDlg('NumLock is untoggled',mtInformation,[mbOk],0);
end;

0
 

Author Comment

by:Dippen
ID: 1342817
Hi, westphal!

I can't get your first procedure to work using the VK_LCONTROL constant, but if I change it to VK_CONTROL it works for both Ctrl keys. Is it because I use Win95? And if it IS because of Win95, is there any workaround in case I want to distinguish between Left and right Shift or Ctrl?

0
 

Expert Comment

by:westphal
ID: 1342818
you are right, win95 does'nt know the difference between right and left :) but you can use in win95 a direct access to bios or harware (old way in dos program's)

0
 

Author Comment

by:Dippen
ID: 1342819
OK. Thanks for your help!
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Along with being a a promotional video for my three-day Annielytics Dashboard Seminor, this Micro Tutorial is an intro to Google Analytics API data.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now