Category: Miscellaneous
Title: Know if a key has been pressed
Author: Damian Cipolat
E-mail: Damian_Cipolat@hotmail.com
Date added: 02.06.2006
Hits: 3141


procedure TForm1.Button1Click(Sender: TObject);
var
  hTaskBar : THandle;
begin
// If you want to detect a letter you must be use the ascii code.

//detect the "a and the A letter".
if GetasyncKeyState(65)<>0 then Caption:='A';

if GetasyncKeyState(97)<>0 then Caption:='a';

// If you want to detect the left button of the mouse use:
if GetasyncKeyState(1)<>0 'mouse
end;

//To detect a hey you must be use the Virtua key codes..

if GetasyncKeyState(vk_space)<>0 then Caption:='Spacebar';

1. How to implement the Pascal Delay-function? (2947 Hits)

2. How to get the list of the installed softwares on a computer? (2338 Hits)

3. How to change the date format? (2885 Hits)

4. How to hide the desktop icons? (1458 Hits)

5. How to set decimal separator systemwide? (2939 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.