baseime.pas

一个MRPII系统源代码版本

unit BaseIme;

Interface

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

Type
  TFrm_BaseIme = Class(TForm)
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  c_Spclr:tcolor=clblue;
  c_Spclrh:tcolor=clyellow;
  c_Bomlayer:integer=10;

var
  Frm_BaseIme: TFrm_BaseIme;
  m_userime:string;
  m_gridclr:tcolor;

implementation

{$R *.DFM}

//设置缺省的输入法
procedure TFrm_BaseIme.FormActivate(Sender: TObject);
begin
  repaint;
end;

procedure TFrm_BaseIme.FormCreate(Sender: TObject);
var i:integer;
begin
  for i:=0 to ComponentCount-1 do
  begin
    if (Components[i] is TEdit) then
    if (Components[i] is TEdit) and
       ((Components[i] as tedit).imeName <>'') then
    begin
      (Components[i] as tedit).imeName := m_userime;
      continue;
    end;
    if (Components[i] is TmaskEdit) and
       ((Components[i] as tmaskedit).imeName <> '') then
    begin
      (Components[i] as tmaskedit).imeName := m_userime;
      continue;
    end;
    if (Components[i] is Tmemo) and
       ((Components[i] as tmemo).imeName <> '') then
    begin
      (Components[i] as tmemo).imeName := m_userime;
      continue;
    end;
  end;
end;

end.