请问delphi有没有像JScript那样的单纯输入框？（非窗体的）

[pgz_007]

就是还是在本form之内的，不用再新建另外一个form了。
我想在treeview中实现查找功能，铺捉keypress事件，一按键盘就弹出一个输入框，输入过程中根据输入的内容自动定位到 treeview的分支中去。（treeview有几千条记录）

[woniugongzuoshi]

inputbox可以吗

[pgz_007]

inputbox有确定取消按钮，能去掉这两个按钮最好了。

[blazingfire]

强烈建议还是再建个窗体，可能感觉不爽，但是那样程序控制起来要灵活得多
当然亦期待楼下的高见......

[王集鹄]

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]偶只为蹭分而来。。。