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

Вниз

Не приходит сообщение от "стрелок"   Найти похожие ветки 

← →
Sergey2 ©   (2006-11-07 14:13) [0]



TMyClass = class(TCustomControl)
   public
     constructor Create(AOwner: TComponent);
     procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 end;
....

constructor TMyClass.Create(AOwner: TComponent; AColCnt, ARowCnt: Integer);
begin
 OnKeyDown := KeyDown;
 inherited Create(AOwner);
end;
procedure TMyClass.KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
// не приходит при нажатии "стрелок"
end;


---

← →
MBo ©   (2006-11-07 14:17) [1]

в обработчике сообщения CM_DIALOGKEY лови стрелки

---

← →
ancot   (2006-11-07 14:22) [2]

procedure WMGetDlgCode(var Msg: TWMGetDlgCode); override;

procedure TMyClass.WMGetDlgCode(var Msg: TWMGetDlgCode);
begin
 Msg.Result := DLGC_WANTARROWS;
end;

---

← →
ancot   (2006-11-07 14:26) [3]

sorry

   procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;

---

← →
Sergey2 ©   (2006-11-07 14:26) [4]

MBo
не помогло - приходит от всяких Alt, Enter - от стрелок не идёт..

---

← →
Sergey2 ©   (2006-11-07 14:29) [5]

procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GetDlgCode;


Это прокатило.
Спасибы.

---

← →
Leonid Troyanovsky ©   (2006-11-07 15:14) [6]

> Sergey2 ©   (07.11.06 14:26) [4]

> не помогло - приходит от всяких Alt, Enter - от стрелок
> не идёт..


Не верю.

--
Regards, LVT.

---

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

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

Наверх

Память: 0.48 MB
Время: 0.047 c