各位大虾:inputquery问题:

guotao1982 2003-08-22 11:15:20
请问在用inputquery出现提示框时其提示字符不能全部显示出来,如下
inputquery('登陆','请输入你的密码',password)=false;
则在提示那里只能显示"请输入你的密"
...全文
64 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
guotao1982 2003-08-22
  • 打赏
  • 举报
回复
这位老兄你的代码在这里一样的不行呀最后一次字显示不出来缩短也没用
IORILI 2003-08-22
  • 打赏
  • 举报
回复
看我的代码:
procedure Tspqh_app.SpeedButton3Click(Sender: TObject);
var
sNewSub: string;
begin
//新部门
sNewSub := inputbox('新部门','新的部门名称', '');
if (trim(sNewSub) <> '') and (bm.Items.IndexOf(sNewSub) = -1) then
begin
if datamodule2.ADObm.Locate('部门名称',trim(snewsub),[]) then
begin
showmessage('部门名称已经存在,请重新输入!');
exit;
end;
datamodule2.ADObm.Insert;
datamodule2.ADObm.Fields[0].AsString:=trim(snewsub);
datamodule2.ADObm.Post;
bm.Items.Add(snewsub);
bm.Text:=trim(snewsub);
end;
end;
IORILI 2003-08-22
  • 打赏
  • 举报
回复
我也遇到过,我的解决办法是缩短文字信息。^_^
linuxyf 2003-08-22
  • 打赏
  • 举报
回复
那你还想显示什么?“登录”是caption,显示在窗口的顶部。
fj218 2003-08-22
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/1934/1934436.xml?temp=8.892459E-02
这个问题我已回答三次了,也得了三次分了
DWGZ 2003-08-22
  • 打赏
  • 举报
回复
后面加几个空格俺一直是这样做的

5,387

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧