usrfsz.pas

来自「该软件前台用的是DELPHI7后台用的是SQLSERVER2000,用了些第三方」· PAS 代码 · 共 92 行

unit Usrfsz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, RzRadChk, StdCtrls, Mask, DBCtrlsEh, RzPanel, ExtCtrls,imm;

type
  TFsrfsz = class(TForm)
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    lbl1: TLabel;
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    ComboBox1: TComboBox;
    procedure FormShow(Sender: TObject);
   // procedure OpenIme(imename:string);
    //procedure closeIme; 
    procedure ComboBox1Change(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure OpenIme(imename:string);
   // procedure closeIme;
    { Public declarations }
  end;

var
  Fsrfsz: TFsrfsz;

implementation

uses Udate;

{$R *.dfm}
procedure TFsrfsz.OpenIme(imename:string);
var
  I:integer;
  myhkl:hkl;
begin
  if ImeName<> ''then begin
    if Screen.Imes.Count<>0 then begin
      I:=screen.Imes.indexof(imename);
      if I>=0then
        myhkl:=hkl(screen.Imes.objects[i]);
      activatekeyboardlayout(myhkl,KLF_ACTIVATE);//设置相应的输入法
    end;
  end;
end;

{procedure TFsrfsz.closeime;
var
  myhkl:hkl;
begin
  myhkl:=GetKeyBoardLayOut(0);
  if ImmIsIME(myhkl)then
	//判断是否在中文状态,若是则关闭它
    immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle);
end; }

procedure TFsrfsz.ComboBox1Change(Sender: TObject);
begin
  qjbl:=combobox1.text;
  OpenIme(ComboBox1.Text);
end;

procedure TFsrfsz.RzBitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TFsrfsz.FormShow(Sender: TObject);
  var j:integer;
begin
  ComboBox1.Clear;
  for j:=0 to screen.imes.count-1do
begin
  ComBoBox1.Items.Add(screen.Imes.strings[j]);
		//获取系统中已安装的中文输入法
end;
end;

procedure TFsrfsz.RzBitBtn1Click(Sender: TObject);
begin
  Fsrfsz.Visible:=false;
end;

end.