全部

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

回复赞