Перехват курсорных клавиш
Автор: Cheers, Julian (TeamB & TurboPower Software)
procedure WMGetDlgCode(var Msg : TMessage); message WM_GETDLGCODE;
...
procedure TMyControl.WMGetDlgCode(var Msg : TMessage);
begin
Msg.Result := DLGC_WANTARROWS;
end;
|
|
|
  |
|
|