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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

哎，稍微修改一下就可以了：
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[0] do
  begin
    TButton(Controls[2]).SetFocus;
    TEdit(Controls[1]).ImeName := '中文 (简体) - 微软拼音';
    TEdit(Controls[1]).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;