D
delphi-explorer
Unregistered / Unconfirmed
GUEST, unregistred user!
我在我的菜单里加入了一项，用来弹出InputBox，代码如下：
procedure Tw_main.N4Click(Sender: TObject);
var
SearchMonth:string;
begin
SearchMonth := '输入月份';
SearchMonth := InputBox('生日查询','月份',SearchMonth);
edit1.Text := SearchMonth;
end;
但运行时InputBox只是出来了一下，就退到了后面了（就是lost focus了）。
用Alt＋Ctrl又可以让它出来，但刚想输入就有退到后面了。我的main Form也不能用（
这可能时InputBox时modle吧）。就是这样，有谁可以帮帮我
procedure Tw_main.N4Click(Sender: TObject);
var
SearchMonth:string;
begin
SearchMonth := '输入月份';
SearchMonth := InputBox('生日查询','月份',SearchMonth);
edit1.Text := SearchMonth;
end;
但运行时InputBox只是出来了一下，就退到了后面了（就是lost focus了）。
用Alt＋Ctrl又可以让它出来，但刚想输入就有退到后面了。我的main Form也不能用（
这可能时InputBox时modle吧）。就是这样，有谁可以帮帮我