【结帖】弹出对话框问题**

cdz0451 · 发表于 2008-3-17 11:00:19

想实现这样一个效果。

单击按钮 ‘数据导出’ 可以弹出一个对话框，让用户填入要导出文件的名字。能弹出一个 Edit 就可以

jiahaiminghr · 发表于 2008-3-17 11:03:36

试试这个
NameSpace: Business.Forms ClassDelcare: Business.Forms.jsDialogs
--------------------------------------------------------------------------------
static function InputBox(string; ACaption: string; APrompt: string): string;

cdz0451 · 发表于 2008-3-17 11:11:14

那个，这个代码写在什么地方的？
NameSpace: Business.Forms ClassDelcare: Business.Forms.jsDialogs
这个是声明？

lixy · 发表于 2008-3-17 11:26:21

代码在USES里面加上 Business.Forms.jsDialogs
后面用这个函数就行了

cdz0451 · 发表于 2008-3-17 11:31:21

这个怎么用啊，说的详细点

zfang · 发表于 2008-3-17 11:33:39

参考代码
procedure TMainForm.Button1Click(Sender: TObject);
var
  lStr : String;
begin
  lStr := Business.Forms.Dialogs.InputBox('弹出','输入一个值：','212121');
  Edit1.Text := lStr;
end;

cdz0451 · 发表于 2008-3-17 14:21:21

OK 结贴

		自动登录	找回密码
密码			立即注册