如何將Form焦點移動改用Enter與上下鍵移動 國人的習慣自DOS以來都用Enter鍵跳下一個欄位輸入,用向上鍵可以回到上一個 輸入欄位,偏偏"阿豆仔"要用Tab鍵與Shift-Tab鍵,這實在很難說服使用者改變 輸入習慣來"崇洋"... 以下程式可以讓您修改程式的輸入方式,符合國人習慣! 1.請將TFrom的KeyPreview設為True 2.請將TFrom的OnKeyDown事件設定如下

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not ( ( ActiveControl is TCustomGrid ) or
          ( ActiveControl is TCustomMemo ) ) then // 非Memo或Grid元件
  if not (ssAlt in shift) and (key=vk_Down) then // 按了向下鍵,但未按Alt鍵,因為在Combobox元件中按Alt 向下鍵可拉出選單,此功能想保留
  begin
     SelectNext(ActiveControl, True, true); // 到下一輸入元件
     key:=0;
  end
  else if not (ssAlt in shift) and (key=vk_Up) then // // 按了向下鍵,但未按Alt鍵
  begin
     SelectNext(ActiveControl, False, true); // // 到上一輸入元件
     key:=0;
  end
  else if key=VK_ESCAPE then // 按ESC
  begin
    Close; // 關掉視窗(按Esc關閉視窗也是國人習慣)
  end
  else if (key=VK_RETURN) then // 按Enter
  begin
     SelectNext(ActiveControl, True, true); // 到下一輸入元件
     key:=0;
  end;
end;

～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～