Текущий архив: 2004.08.01;
Скачать: CL | DM;

Вниз

Обработка нажатия   Найти похожие ветки [Tab]

← →
Yurko   (2004-07-15 12:08) [0]

Нужно в OnKeyDown поймать нажатие на [Tab]. Проблема в том, что обработчик вызывается только при нажатии [Ctrl+Tab]. Скажите, пожалуйста, как ловить нажатие самого [Tab]?

---

← →
ssk ©   (2004-07-15 12:13) [1]


type
   TForm1 = class(TForm)
   private
       procedure CMDialogKey( Var msg: TCMDialogKey );
       message CM_DIALOGKEY;
end;

var
   Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMDialogKey(var msg: TCMDialogKey);
begin
   if msg.Charcode  VK_TAB then
       inherited;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = VK_TAB then
   Form1.Caption := "Tab Key Down!";
end;

---

← →
Yurko   (2004-07-15 12:45) [2]

С П А С И Б О !!!!!!!!!!!!!

---

Страницы: 1 вся ветка

Текущий архив: 2004.08.01;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.045 c