能不能在Button事件中弹出一个对话框接受用户输入字符串后返回？

Question

我的意思是有没有简单的写法？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  inputbox('','','');
end;

Answer 2

InputBox('校对','请重新输入：','')

Answer 3

inputbox('标题','请输入内容','不输入内容的默认值');
如：
caption:=inputbox('标题','请输入内容','不输入内容的默认值');

Answer 4

uses Dialogs;procedure TForm1.Button1Click(Sender: TObject);
var
  InputString: string;
begin
  InputString:= InputBox('Input Box', 'Prompt', 'Default string');end;

Answer 5

Name := Inputbox('信息','输入姓名：',Table1.fieldbyname('姓名').asstring);
Table1.Edit;
Table1.fieldbyname('姓名').asinteger := Name;             
Table1.post;