uime.pas

来自「中式财务栏 表格式录入 运行时设置可显示列、列名、列宽」· PAS 代码 · 共 63 行

{*******************************************************}
{                                                       }
{       设置默认输入法                                  }
{                                                       }
{       版权所有 (C) 2008 咏南工作室(陈新光)            }
{                                                       }
{*******************************************************}

unit uIme;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,uCommFunc;

type
  TFormIme = class(TForm)
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure ComboBox1DropDown(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormIme: TFormIme;

implementation

{$R *.dfm}

procedure TFormIme.BitBtn1Click(Sender: TObject);
begin
  if Trim(ComboBox1.Text)='' then Exit;
  WriteIniFile(GetINIFile,'ime','imename',ComboBox1.Text);
end;

procedure TFormIme.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TFormIme.ComboBox1DropDown(Sender: TObject);
begin
  TComboBox(Sender).Items.Clear;
  TComboBox(Sender).Items:=Screen.Imes;
end;

procedure TFormIme.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
  FormIme:=nil;
end;

end.