Mega Code Archive

 

Categories / Delphi / Games

 

Arrow keys do not generate wm_keydown

// based on a contribution from David Rifkind <drifkind@acm.org> type TMyControl = class(TWinControl) private //.. procedure WMGetDlgCode(var message: TMessage); message WM_GETDLGCODE; //.. end; // request the arrow keys + characters procedure TMyControl.WMGetDlgCode(var message: TMessage); begin message.Result := DLGC_WANTARROWS or DLGC_WANTCHARS; end;