谢谢谢谢!

解决方案 »

  1.   

    啥意思?
    label可以与edit关联,当你把fouce设成label上时,就会自动跳到edit上了。
      

  2.   

    设置其taborder的属性为1,2,3...,可以通过tab键快速移动光标
      

  3.   

    不好意思,可能是问题提得不够清楚,不过现在已经解决了,谢谢各位。
    1、用TLable和TEdit关联,将TLable的FocusControl设置为相应的TEdit,TLable的快捷键前加&符号
    2、
    KeyPreview := True; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if (Chr(Key) = 'S') and (ssAlt in Shift) then
        Edit1.SetFocus
    end;