Readygo技术搜索引擎 网络搜索 efish 2008-1-17 9:39:53

急问关于inputquery函数的一个问题。

楼主onthesky（黑云）2002-10-08 17:08:13 在 Delphi / VCL组件开发及应用 提问

我在软件里常常用inputquery函数。但是有一个输入法的问题，请问怎么样可以把inputquery弹出的框里的输入法固定成最初选定的。急急急。。。。 问题点数：20、回复次数：5Top

1 楼onthesky（黑云）回复于 2002-10-08 17:28:39 得分 0

请大家帮忙讨论一下吧。虽然是小问题，但是一直很困扰我。Top

2 楼csrcom（泥鳅）回复于 2002-10-08 17:51:40 得分 0

最好的办法就是自己写一个合inputquery   差不多的函数，可以参考inputquery是如何写的。轻松改一下就是了Top

3 楼Kingron（单身走我路……）回复于 2002-10-08 17:54:09 得分 0

参考一下这个把：  
  http://www.csdn.net/expert/topic/1035/1035051.xml?temp=.6247217Top

4 楼Kingron（单身走我路……）回复于 2002-10-08 17:55:21 得分 0

请参考：  
  http://www.csdn.net/expert/topic/1035/1035051.xml?temp=.6247217Top

5 楼onthesky（黑云）回复于 2002-10-08 18:12:50 得分 0

好厉害，还想问一下。我对api不熟，固定输入法怎么写。Top

6 楼Kingron（单身走我路……）回复于 2002-10-08 18:28:16 得分 20

哎，稍微修改一下就可以了：  
  const  
      InputBoxMessage       =   WM_USER   +   200;  
   
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          Edit1:   TEdit;  
          procedure   Button1Click(Sender:   TObject);  
      private  
          procedure   InputBoxSetPasswordChar(var   Msg:   TMessage);   message   InputBoxMessage;  
      public  
      end;  
   
  var  
      Form1                           :   TForm1;  
   
  implementation  
   
  {$R   *.DFM}  
   
  procedure   TForm1.InputBoxSetPasswordChar(var   Msg:   TMessage);  
  begin  
      with   Screen.Forms   do  
      begin  
          TButton(Controls).SetFocus;  
          TEdit(Controls).ImeName   :=   "中文   (简体)   -   微软拼音";  
          TEdit(Controls).SetFocus;  
      end;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      InputString               :   string;  
  begin  
      PostMessage(Handle,   InputBoxMessage,   0,   0);  
      InputString   :=   InputBox("Input   Box",   "Please   Enter   a   Password",   "");  
  end;  
  Top