Key Up при нажатых 2х и более клавиш

[ldenis]

Как прочитать одновременное нажатие 2х и более клавиш, не считая клавиш Shift, Alt или Ctrl?

[Sibedir]

type
  TByteSet = set of Byte;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FKeySet := [];
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Include (FKeySet, Key);
  if (Ord('A') in FKeySet) and
     (Ord('S') in FKeySet) and
     (Ord('D') in FKeySet) then begin
    FKeySet := [];
    ShowMessage ('asgasdfg');
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Exclude (FKeySet, Key);
end;

[mss]

The GetKeyboardState function copies the status of the 256 virtual keys to the specified buffer.

[Sibedir]

или еще проще
http://delphiworld.narod.ru/base/form_keys_pressed.html