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

pgz_007 2008-05-20 07:55:30
就是还是在本form之内的,不用再新建另外一个form了。
我想在treeview中实现查找功能,铺捉keypress事件,一按键盘就弹出一个输入框,输入过程中根据输入的内容自动定位到 treeview的分支中去。(treeview有几千条记录)
...全文
88 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
王集鹄 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可以吗
回复
发帖
语言基础/算法/系统设计
创建于2007-08-02

1.6w+

社区成员

Delphi 语言基础/算法/系统设计
申请成为版主
帖子事件
创建了帖子
2008-05-20 07:55
社区公告
暂无公告