Текущий архив: 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.036 c
