我用Delphi7 开发的程序.在程序运行的时假为什么一打开就默认是智能ABC 输入法

解决方案 »

  1.   

    不管你得事,除非你设置ImeName 这个属性,默认是空得。
      

  2.   

    在写程序的时候,做好不要打开输入法。你查一下ImeName 属性
      

  3.   

    给你一个方法,在form的show中调用
    procedure Tform1.FormShow(Sender: TObject);
    begin
      clearIme(Sender);
    end;procedure clearIme(formName : Tobject);
    var
        i : integer;
    begin
        for i := 0 to (formName as TForm).ComponentCount -1 do
        begin
            If (formName as TForm).Components[i] is TEdit then
               ((formName as TForm).Components[i] as TEdit).ImeName := '';
            If (formName as TForm).Components[i] is TEdit then
               ((formName as TForm).Components[i] as TEdit).ImeName := '';
            If (formName as TForm).Components[i] is TMemo then
               ((formName as TForm).Components[i] as TMemo).ImeName := '';
            If (formName as TForm).Components[i] is TComBobox then
               ((formName as TForm).Components[i] as TComBobox).ImeName := '';
            If (formName as TForm).Components[i] is TComBobox then
               ((formName as TForm).Components[i] as TComBobox).ImeName := '';
            If (formName as TForm).Components[i] is TDateTimePicker then
               ((formName as TForm).Components[i] as TDateTimePicker).ImeName := '';
        end;
    end;
      

  4.   

    我这里好多有Edit 要是改怎么能都一起改过来呀.