獲取年齡與根據用戶輸入需求自動調整輸入法[2]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    通過activatekeyboardlayout方法切換到指定的輸入法主要代碼如下
    procedure TFormInput(InputName: string);
    var
      I: Integer;
      myhkl: hkl;
    begin
      ImeName := InputName;
      if Length(ImeName) <> then
       begin
         if ScreenImesCount <> then
          begin
            I := screenImesindexof(imename);
            if I >= then
             myhkl := hkl(screenImesobjects[i])
            else
             begin
               ShowMessage(此輸入法沒有啟用);
             end;
            activatekeyboardlayout(myhklKLF_ACTIVATE); //設置相應的輸入法
          end;
       end;
    end;

right>[http://developcsaicn/delphi/htm>]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24806.html