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

Question

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

Answer 1

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

Answer 2

uses ComObj;procedure TForm1.Button1Click(Sender: TObject);
var
  vScriptControl: OleVariant;
begin
  vScriptControl := CreateOleObject('MSScriptControl.ScriptControl');
  vScriptControl.Language := 'VBScript';
  Text := vScriptControl.eval('inputbox("提示", "标题", "默认值")');
end;偶只为蹭分而来