How do I read 'Control Key + A' in onkeydown event??

[wpflum]

Ok, after digging a bit I'm either asking the wrong question, using the wrong phrases OR no one has ever asked this before, guess which one I think it is 

I'm using an onkeydown event to trap the key presses of a form and have no problems with the normal keys, including the Control key but I'm not sure how I determine when I have key combinations pressed.  I need to use Cntrl A and Cntrl D in an editor scenario and I can see when the cntrl key is pressed but how do I trap BOTH keys so I know the user is pressing them at the same time??

 

[typo]

KeyPreviwew On:

Code: [Select]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  // uses LCLType
  if (ssCtrl in Shift)and (Key = VK_A)
    then ShowMessage('Ctrl + a');
end;


[wpflum]

As is often the case when I went back and tried yet another key word combination search I found the answer.  So for anyone looking for something similar here is what I came up with.

To trap Control+A in the onkeydown event use:

if(key=ord('A')) and (ssCtrl in Shift) then

I'm guessing you could sub in Alt if needed but I didn't try that since I only needed the Control key.

I had seen something like this on an earlier search but it wasn't as clear as what I finally found and posted above.

[Leledumbo]

uses Windows

Better: LCLType (cross platform)

[wpflum]

KeyPreviwew On:

Code: [Select]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  // uses Windows
  if (ssCtrl in Shift)and (Key = VK_A)
    then ShowMessage('Ctrl + a');
end;


Thanks, I found a similar solution on the net for Delphi coding which worked.  Did you add the '// uses windows' because you are on a windows box or is this something that shouldn't work on a linux box??  I ask this since the box I'm working on is Linux and the above code I posted works but the eventual target machines will be windows so I want to make sure what I'm using will cross platforms.

[typo]

I have edited the post.