TEdit控件模拟击键问题

Question

你可以捕获击键，在keypress事件中判断，做个case ，应该只有20几个字符串吧，记者要将form的keypreview属性设为true
 if key=ord('C') then //这里判断键值，查一下帮助
     edit1.text:='MUSIC';
或者用CASE 语句
  case key of 
      'c'：edit1.text:=.....;
      'b': edit1.text:=....;
  ....

Answer 1

不如用一个加强版的 COMBOBOX了。 

Answer 2

    给edit1.text赋值的方法恐怕不行，因为edit1中的光标仍处于第一字符的位置，接下来输入的字符将插在前面。如果能将光标调到尾部就好了！

Answer 3

edit1.text:=music;
edit1.SelStart:=length(edit1.text);