[2ch] くだすれDelphi(超初心者用)その53 [テンキーについて]
いつか使うかもしれないのでコピペ。

http://hibari.2ch.net/test/read.cgi/tech/1309101455/752-772

752 デフォルトの名無しさん [sage] 2011/11/10(木) 21:16:07.18 ID: Be:
  ショートカットキーでctrl+1って設定した時に、テンキーの1じゃ反応しないんだけど何で?

759 デフォルトの名無しさん [sage] 2011/11/11(金) 13:16:58.52 ID: Be:
  >>752
  キーボード内部でのIDが違う的な話でしょ。

760 デフォルトの名無しさん [sage] 2011/11/11(金) 17:18:34.27 ID: Be:
  >>759
  ㌧です。
  そういう時はキープレスか、キーダウンとかで監視しするってことか。

761 760 [sage] 2011/11/11(金) 23:51:06.08 ID: Be:
  だめだった。。・゚・(ノД`)・゚・。
  どうすればいい?

772 デフォルトの名無しさん [sage] 2011/11/12(土) 20:48:51.22 ID: Be:
  >>761
  普通に出来るぢゃん
  procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  var
  KeyMsg:string;

  begin

   case Key of
    $30:begin Caption:='VK_0'; KeyMsg:='0キー';end;
    $31:begin Caption:='VK_1'; KeyMsg:='1キー';end;
    $32:begin Caption:='VK_2'; KeyMsg:='2キー';end;
    $33:begin Caption:='VK_3'; KeyMsg:='3キー';end;
    $34:begin Caption:='VK_4'; KeyMsg:='4キー';end;
    $35:begin Caption:='VK_5'; KeyMsg:='5キー';end;
    $36:begin Caption:='VK_6'; KeyMsg:='6キー';end;
    $37:begin Caption:='VK_7'; KeyMsg:='7キー';end;
    $38:begin Caption:='VK_8'; KeyMsg:='8キー';end;
    $39:begin Caption:='VK_9'; KeyMsg:='9キー';end;
    $60:begin Caption:='VK_NUMPAD0'; KeyMsg:='テンキーの0キー';end;
    $61:begin Caption:='VK_NUMPAD1'; KeyMsg:='テンキーの1キー';end;
    $62:begin Caption:='VK_NUMPAD2'; KeyMsg:='テンキーの2キー';end;
    $63:begin Caption:='VK_NUMPAD3'; KeyMsg:='テンキーの3キー';end;
    $64:begin Caption:='VK_NUMPAD4'; KeyMsg:='テンキーの4キー';end;
    $65:begin Caption:='VK_NUMPAD5'; KeyMsg:='テンキーの5キー';end;
    $66:begin Caption:='VK_NUMPAD6'; KeyMsg:='テンキーの6キー';end;
    $67:begin Caption:='VK_NUMPAD7'; KeyMsg:='テンキーの7キー';end;
    $68:begin Caption:='VK_NUMPAD8'; KeyMsg:='テンキーの8キー';end;
    $69:begin Caption:='VK_NUMPAD9'; KeyMsg:='テンキーの9キー';end;

   else ;
   end;

  end;
  あとは Shift: TShiftState を見れ

↓コメント欄にあったので追記↓
803 デフォルトの名無しさん [sage] 2011/11/14(月) 10:27:35.00 ID: Be:
  >>772
  そんなことしなくてもdfmをテキスト表示してShortcutの値を16481にすればOK。
  テンキー側の0-9をショートカットにしたいときは+48の値を設定すればいい。
[PR]

by arigayas | 2011-11-13 12:25 | Delphi Programming | Trackback | Comments(2)
トラックバックURL : http://arigayas.exblog.jp/tb/16851922
トラックバックする(会員専用) [ヘルプ]
※このブログはトラックバック承認制を適用しています。 ブログの持ち主が承認するまでトラックバックは表示されません。
Commented by とおりすがり at 2011-11-14 20:05 x
ついでにこれも
http://hibari.2ch.net/test/read.cgi/tech/1309101455/803
Commented by arigayas at 2011-11-15 13:17
コメントありがとうございます。追記しました。
<< [2ch] くだすれDelph... Kensington Trac... >>