unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;procedure FormCreate(Sender: TObject);procedure FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginMemo1.Align := alLeft;Memo1.ScrollBars := ssVertical;Memo1.Clear;
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
beginif GetKeyState(VK_SHIFT)  < 0 then Memo1.Lines.Add('Shift');if GetKeyState(VK_LSHIFT) < 0 then Memo1.Lines.Add('LeftShift');if GetKeyState(VK_RSHIFT) < 0 then Memo1.Lines.Add('RightShift');if GetKeyState(VK_CONTROL)  < 0 then Memo1.Lines.Add('Ctrl');if GetKeyState(VK_LCONTROL) < 0 then Memo1.Lines.Add('LeftCtrl');if GetKeyState(VK_RCONTROL) < 0 then Memo1.Lines.Add('RightCtrl');if GetKeyState(VK_MENU)  < 0 then Memo1.Lines.Add('Alt');if GetKeyState(VK_LMENU) < 0 then Memo1.Lines.Add('LeftAlt');if GetKeyState(VK_RMENU) < 0 then Memo1.Lines.Add('RightAlt');Memo1.Lines.Add('');
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 206ClientWidth = 339Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreateOnMouseDown = FormMouseDownPixelsPerInch = 96TextHeight = 13object Memo1: TMemoLeft = 80Top = 80Width = 185Height = 89Lines.Strings = ('Memo1')TabOrder = 0end
end