tbasunit.pas

工商收费系统,主要是管理非税收收入的费用的管理

unit TbasUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ComCtrls;

type
  TTBas = class(TForm)
    BaseClass: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure BaseClassEnter(Sender: TObject);
    procedure BaseClassExit(Sender: TObject);
  private
    { Private declarations }
    procedure SetFocusColor(Sender:TObject;Color:TColor=clAqua);
    procedure SetExitColor(Sender:TObject;Color:TColor=clWindow);
  protected
    procedure InitEdtCtlIme(winCtl:TWinControl;ImeMode:TImeMode;strIme:String);
  public
    { Public declarations }
  end;

var
  TBas: TTBas;

implementation

uses GlobalParaUnit;


{$R *.DFM}

procedure TTBas.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then          //按TAB顺序跳转
    perform(WM_NEXTDLGCTL,0,0);
end;


////////////////////////////////////////////////////////////////
//函数名称：InitEdtCtlIme                                     //
//函数功能；将指定控件容器的所有输入法模式为指定的值的        //
//            TEdit与TDBEdit控件的输入法名称设置为相应的的值  //
//输入参数：winCtl:TWinControl  指定容器                      //
//          meMode:TImeMode     指定输入法模式                //
//          strIme:String       要设置的值                    //
//输出参数：无                                                //
//例子：InitEdtCtlIme(self,imChinese,'智能ABC输入法');        //
//编写人：陈宇                                                //
//编写时间：2001年10月23日                                    //
//备注:把IMEMODE属性设为CHEESE为有输入法,
//                    为CLOSE没有输入法(英文)
////////////////////////////////////////////////////////////////
procedure TTBas.InitEdtCtlIme(winCtl:TWinControl;ImeMode:TImeMode;strIme:String);
var
   currCtl:TWinControl;
   i:Integer;
begin
   currCtl:=nil;
   for i:=0 to winCtl.ControlCount-1 do
   begin
       currCtl:=TWinControl(winCtl.Controls[i]);
       if currCtl=nil then break;

       if (currCtl is TEdit) then
          if (currCtl as TEdit).imeMode=ImeMode then
             (currCtl as TEdit).imeName:=strIme;

       if (currCtl is TDBEdit) then
          if (currCtl as TDBEdit).imeMode=ImeMode then
             (currCtl as TDBEdit).imeName:=strIme;
   end
end;

procedure TTBas.SetFocusColor(Sender:TObject;Color:TColor=clAqua);//控件颜色同通过TCOLOR
begin
  if (Sender is TEdit) then
    (Sender as TEdit).Color:=Color;
  if (Sender is TDBEdit) then
    (Sender as TDBEdit).Color:=Color;
  if (Sender is TDBLookupComboBox) then
    (Sender as TDBLookupComboBox).Color:=Color;
  if (Sender is TDateTimePicker) then
    (Sender as TDateTimePicker).Color:=Color;
  if (Sender is TDBComboBox) then
    (Sender as TDBComboBox).Color:=Color;
  if (Sender is TComboBox) then
    (Sender as TComboBox).Color:=Color;
end;

procedure TTBas.SetExitColor(Sender:TObject;Color:TColor=clWindow);
begin
  SetFocusColor(Sender,Color);
end;


procedure TTBas.FormShow(Sender: TObject);
begin
  InitEdtCtlIme(self,imChinese,gstrImeName);
end;

procedure TTBas.BaseClassEnter(Sender: TObject);
begin
  SetFocusColor(Sender);
end;

procedure TTBas.BaseClassExit(Sender: TObject);
begin
  SetExitColor(Sender);        
end;

end.