关于inputQuery

Question

把inputQuery换成messageboxex？ 

Answer 1

var
  NewName:string;
begin//弹出小窗口
  if inputQuery('模板名称','请您输入模板名称',NewName)  then
  begin
    if Trim(NewName)='' then
    begin
      messageboxEx(handle,'请您输入模板名称！','提示',MB_OK,0)
    end
    else
    begin
      ......
    end;
  end;
end;

Answer 2

或者用
if messageboxEx(handle,'请您输入模板名称！','提示',MB_OKCANCEL,0)=IDOK then
begin 
  ...
end
else
begin
  ...
end;

Answer 3

还是不行。
 inputQuery('模板名称','请您输入模板名称',NewName) 这个小窗口还是消失了

Answer 4

可以试试这么写：var
  NewName:string;
  ClickedOK:BOOLEAN;
begin//弹出小窗口
  ClickedOK:=inputQuery('模板名称','请您输入模板名称',NewName);
  while ClickedOK do 
  begin
    if Trim(NewName)='' then
    begin
      showmessage('请先输入模板名称！');
      inputQuery('模板名称','请您输入模板名称',NewName);
    end
    else
    begin
      ......
    end;
  end;
end;

Answer 5

用一个循环：
var
  NewName:string;
  i:integer;
begin//弹出小窗口
  for i:=1 to 1000 do
    if inputQuery('模板名称','请您输入模板名称',NewName)  then
    begin
      if Trim(NewName)='' then
      begin
        showmessage('请先输入模板名称！');
      end
      else
      begin
        break;//退出循环
        ......
      end;
    end;
end;