我在help中看到key codes,請問怎樣使用 Key Code Corresponding key Key_Escape Escape key Key_Tab Tab key Key_Return Return key .... procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin if key=Key_Tab then showmessage('tab'); end; 我想在按下tab的時候,調用showmessage方法,但是編譯錯誤為什么,謝謝

您好﹗

begin
if Key = #9 then
  ShowMessage('Tab');

========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/12/14 16:54:36

------
忻晟

還有一個問題就是:在這裡你攔截不到VK_TAB;    除非..    

type
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    Label1: TLabel;
    Label2: TLabel;
    procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
  public
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  Handled := (Msg.message=WM_KEYDOWN)and(Msg.wParam=9);
  if Handled then
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_TAB then ShowMessage('TAB');
end;