Перехват курсорных клавиш Автор: 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; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
Автор: 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;