delphi 单击按钮弹出对话框：请输入姓名 这个怎么实现？

[lonelyriver]

delphi 单击某按钮弹出一对话框：请输入姓名，然后用户就可以输入姓名，并且赋值给某个变量。 这个怎么实现？谢谢

[wulingyigu1]

inputbox();

[yinxd6112]

var
  Name: string;
begin
  if InputQuery('MyApp','请输入姓名：',Name) then
    ShowMessage(Name);
  //还有另外一个函数 inputBox，可以给定一个默认值
  Name := InputBox('MyApp','请输入姓名：',Name);
end;

[lonelyriver]

具体点 给段代码 。

[fjtxwd]

procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
s:=InputBox('标题','name:',s);
if s<>'' then
showmessage(s);
end;