我想实现如下功能 请大侠们帮忙 在线等

Question

我想在程序中实现 按下TAB键 弹出一对话框
还有点击某按钮 让鼠标的显示变个样子。

Answer 1

按下TAB键弹出一个对话框不容易，因为tab键是系统键，建议你不要这么做，不是标准做法。
按tab键弹出对话：
unit Unit1;interfaceuses
  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
    procedure WMGETDLGCODE(var msg: TWMGETDLGCODE); message WM_GETDLGCODE;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 9 then
    ShowMessage('haha');
end;procedure TForm1.WMGETDLGCODE(var msg: TWMGETDLGCODE);
begin
  msg.Result := DLGC_WANTTAB;
end;end.改变光标：
var   Save_Cursor:TCursor;
Begin
  Save_Cursor := Screen.Cursor;  Screen.Cursor := crHourGlass;    { Show hourglass cursor }  try
    { Do some lengthy operation }
  finally
    Screen.Cursor := Save_Cursor;  { Always restore to normal }
  end;end;

Answer 2

Key = 9 就是表示TAB键吗？十分感谢 yrb() 
稍后就结帐

Answer 3

为什么按TAB键没反应？
麻烦yrb（）帮忙解释一下...

Answer 4

把form的keypreview属性设置成true试试

Answer 5

还是不行...没显示有错误 就是没办法实现...着急ing