Shift [ and shift ] 2

[pierrotsc]

I am trying to capture the shift [ and shift ] in the formkeydown event to modify a trackbar.
I think i am supposed to use the GetAsyncKeyState command but cannot figure out on how to make it work when you press the Shift [ combinations keys.
would someone know?
Thanks.
Pierrotsc

 

[DjangMan]

Does this help?

http://delphi.about.com/od/objectpascalide/a/keyboard_events.htm

 

[pierrotsc]

Nope.went there already. It does not tell me on how to find out if Shift [ is pressed. I can do [ but cannot figure out on how to check for shift [.
Thanks...

 

[DjangMan]

 if (key =219) and (Shift = [ssShift]) then showmessage('pressed');

 

[whosrdaddy]

???

if (Shift = [ssShift]) and (Key = YOUR_KEYCODE) then
 DoIt;

or am I missing something?


-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[whosrdaddy]

damn too late

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[DjangMan]

You missed hitting send by 4 minutes - that's all.

 

[pierrotsc]

Thanks guys..It is kind of working because if i press the [ by itself, it also triggers like the shift [.Right now I use if (getasynckeystate($DB)=1 and 1)=1 then... to check the status of [.
if i use if (key =219) and (Shift = [ssShift]) then

This command triggers both [ and shift [...
What should I do?

P

 

[DjangMan]

Respectfully, you must have done something wrong. I can press [ and it doesn't show my message.

Make sure you don't also have code in OnKeyUp or OnKeyPress.

 

[pierrotsc]

I have the code in formkeydown. Should i not be using that?

 

[pierrotsc]

Cannot use onkeyfress if you use shift=. It has to be onkeydown..

 

[DjangMan]

Here's my .pas code:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm5 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    if (key =219) and (Shift = [ssShift]) then showmessage('done');
end;

end.

 

[pierrotsc]

Ok..Try that.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key =219) and (Shift = [ssShift]) then showmessage('Shift [');
if (key =219) then showmessage('[');
end;

end.

When you press shift [, both message will appear...

 

[DjangMan]

Tried.

Now then...if you're asking if you can trap only Shift+[ or [ and not both at the same time then do this:

    if (key =219) and (Shift = [ssShift]) then showmessage('Shift [');
    if (key =219) and (Shift <> [ssShift]) then showmessage('[');