• Chcpmal
    了解作者
  • Dev C++
    开发工具
  • 3KB
    文件大小
  • rar
    文件格式
  • 0
    收藏次数
  • 1 积分
    下载积分
  • 0
    下载次数
  • 2019-05-26 07:06
    上传日期
Using c builder programming control
bpilder.rar
  • 9Y2ch04-01-1
  • Unit1.cpp
    2KB
  • Unit1.h
    1KB
  • Unit1.ddp
    51B
  • Unit1.dfm
    1.3KB
  • Project1.cpp
    644B
  • Project1.bpr
    3.2KB
  • Project1.res
    876B
内容介绍
//--------------------------------------------------------------------------- //目的:输入法可由<现有输入法>中选取,并在Memo1中执行输入功能 //--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Memo1->Text = ""; //先删除Memo1中文字 HKL hkl[10]; //清空HKL地址内存 ::ZeroMemory(hkl,sizeof(HKL)); //取得输入法总数与各输入法handle int num = ::GetKeyboardLayoutList(255, hkl); Memo1->Lines->Add("现有输入法共" + AnsiString(num) + " 种"); //癹伴块猭handle while(num) {//在win95,仅使此线程执行此输入法; //在NT,则使在全系统所有已调用线程皆执行此输入法 //取得下一输入法并致能 ::ActivateKeyboardLayout((HKL)HKL_NEXT,KLF_REORDER); char keyb[KL_NAMELENGTH]; //取得现在输入法名称 ::GetKeyboardLayoutName(keyb); //将输入法handle加入RadioGroup1切换子项中 RadioGroup1->Items->Add(AnsiString(keyb)); Memo1->Lines->Add(AnsiString(keyb)); num--; } //预先选取RadioGroup1第一子项 RadioGroup1->ItemIndex = 0; //按钮任务完成,即失效 Button1->Enabled = false; } //--------------------------------------------------------------------------- //当点取<现有输入法>其中子项目,即切换输入法 void __fastcall TForm1::RadioGroup1Click(TObject *Sender) {//取得RadioGroup1的指定字符串 AnsiString skey = RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]; //加载指定名称的输入法 ::LoadKeyboardLayout( skey.c_str(), KLF_ACTIVATE); //将焦点交给Memo,以便进行输入 Memo1->SetFocus(); } //---------------------------------------------------------------------------
评论
    相关推荐
    • tcizzou.rar
      VC编写的socket聊天通讯程序例子,实现了基本的通讯功能
    • cdncept-Chierarchy.rar
      Tree control programming source code to achieve
    • Tgf_means.rar
      ToolBarAndMenuDemo名字就知道意思了,一个控件
    • VRTK.rar
      TCP与UDP的工作原理与编写过程,如何在程序中链接库文件,
    • Chct.rar
      Socket Chat 采用 Net Socket技术的在线聊天室
    • returns.rar
      Rebar 这个代码可以返回当前机子中的网卡的以太网地址
    • 18747679.rar
      Flat Scroll Bar 这个代码可以返回当前机子中的网卡的以太网地址
    • diadygs.rar
      CXTabCtrl an easier tab control for dialogs and forms
    • machine_adxrxss.rar
      ComCtl32Ver 这个代码可以返回当前机子中的网卡的以太网地址
    • 3DES加密算法源代码.rar
      DES加密源代码,用3DES加密算法。 加密强度高,到目前为止,还无人能够破解!