[Помидоркин]

Собсвенно сабж

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

type    TBaseGrid = class(TCustomControl)           ..........    protected     procedure Paint; override;     procedure Click; override;     procedure KeyDown(var Key: Word; Shift: TShiftState); override;          ...........   end;   procedure TBaseGrid.KeyDown(var Key: Word; Shift: TShiftState); begin inherited KeyDown(Key, Shift);  if Key = VK_RETURN then ShowMessage('Попал'); {case Key of   VK_:  SetEdt(Edt.EdtRow,Edt.EdtCol+1);   VK_RIGHT: SetEdt(Edt.EdtRow,Edt.EdtCol+1); end;                                                   }   end;

Click работает, Form1.KeyPreview:= True; не помогает
полагаю нужна еще иформация, но незнаю какая, не выкладывать же весь проект

[poli-smen]

Сообщение от Помидоркин

class(TCustomControl) не работает KeyDown

Должно работать. Возможно у тебя элемент управления не получает фокуса ввода по щелчку мыши. Нужно делать примерно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

type    TBaseGrid = class(TCustomControl) .....    protected     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; .....   end; ..... procedure TBaseGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin   inherited;   if CanFocus then SetFocus; end;

[Помидоркин]

Сообщение от poli-smen

...элемент управления не получает фокуса ввода...

Так и есть, огромное спасибо

[Помидоркин]

Нет, не работает.

Код:

1	procedure TBaseGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

- Нужен, фокуса действительно небыло. А вот VK_DOWN не работает, VK_SPACE, VK_RETURN работает, а стрелка вниз нет.

Код:

1 2 3 4 5

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin  if Key = VK_DOWN then ShowMessage('Попал'); end;

Попробовал со стандарным компонентом - все отлично.
Возможно это важно: TBaseGrid описан в другом юните.
Выяснилось: VK_DOWN, VK_RIGHT (т.е. клавиши со стрелками) переводят фокус между элементами.
Нашел вот такую штуку

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Procedure tMessages ( Var Msg : tMsg; Var Handled : Boolean ); Begin If ( Msg.Message = WM_KeyDown ) And ( Msg.wParam In [VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT] ) Then Begin Case Msg.wParam Of VK_UP    : ShowMessage ( 'Нажата стрелка вверх' ); VK_DOWN  : ShowMessage ( 'Нажата стрелка вниз' ); VK_LEFT  : ShowMessage ( 'Нажата стрелка влево' ); VK_RIGHT : ShowMessage ( 'Нажата стрелка вправо' ); End; Handled := True; End; End;   procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := HandleMessages; end;

но как это прикрутить к собственному классу описанному в отдельном юните
я даже не уверен, что это то что нужно

[poli-smen]

Сообщение от Помидоркин

Нет, не работает.

Код:

- Нужен, фокуса действительно небыло. А вот VK_DOWN не работает, VK_SPACE, VK_RETURN работает, а стрелка вниз нет.

Стрелки перехватываются в процессе обработки очереди сообщений и обрабатываются как команды перемещения фокуса ввода между элементами управления.
Чтобы этого не происходило нужно отлавливать сообщение WM_GETDLGCODE:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

type   TBaseGrid = class(TCustomControl) .....   protected     procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;  .....   end; ..... procedure TBaseGrid.WMGetDlgCode(var Msg: TWMGetDlgCode); begin   Msg.Result := DLGC_WANTARROWS; end;

[Помидоркин]

Сообщение от poli-smen

Код:

Да все работает, спасибо