| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не приходит сообщение от "стрелок" [D7, WinXP]

Sergey2 ©   (2006-11-07 14:13:00) 



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;


---

Leonid Troyanovsky   (2006-11-07 15:14:00) [1]

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

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


Не верю.

--
Regards, LVT.

---

Sergey2   (2006-11-07 14:29:00) [2]

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


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

---

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

sorry

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

---

Sergey2   (2006-11-07 14:26:00) [4]

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

---

ancot   (2006-11-07 14:22:00) [5]

procedure WMGetDlgCode(var Msg: TWMGetDlgCode); override;

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

---

MBo   (2006-11-07 14:17:00) [6]

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

---

Наверх