请问delphi有没有像JScript那样的单纯输入框?(非窗体的)

pgz_007 2008-05-20 07:55:30
就是还是在本form之内的,不用再新建另外一个form了。
我想在treeview中实现查找功能,铺捉keypress事件,一按键盘就弹出一个输入框,输入过程中根据输入的内容自动定位到 treeview的分支中去。(treeview有几千条记录)
...全文
110 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
王集鹄 2008-05-20
  • 打赏
  • 举报
回复
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
vScriptControl: OleVariant;
begin
vScriptControl := CreateOleObject('MSScriptControl.ScriptControl');
vScriptControl.Language := 'VBScript';
Text := vScriptControl.eval('inputbox("提示", "标题", "默认值")');
end;
[img=http://p.blog.csdn.net/images/p_blog_csdn_net/zswang/%E6%89%AE%E9%85%B7.gif]图[/img]偶只为蹭分而来。。。
blazingfire 2008-05-20
  • 打赏
  • 举报
回复
强烈建议还是再建个窗体,可能感觉不爽,但是那样程序控制起来要灵活得多
当然亦期待楼下的高见......
pgz_007 2008-05-20
  • 打赏
  • 举报
回复
inputbox有确定取消按钮,能去掉这两个按钮最好了。
woniugongzuoshi 2008-05-20
  • 打赏
  • 举报
回复
inputbox可以吗

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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