,,,,,,,,,,,,,∧,,∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,ミ,,ﾟДﾟ彡＜　>>116>>114
　 UU""" U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
procedure TForm1.Button3Click(Sender: TObject);
begin
　TenKeyAction1.ShortCut := VK_NUMPAD1;
　TenKeyAction2.ShortCut := VK_NUMPAD2;
　NormalKeyAction1.ShortCut := Word('1');
　NormalKeyAction2.ShortCut := Word('2');
end;

VK_ADD = 107;//=$6Bなんですね


>>100
もしかしてすごいことやってらっさる？