Question

Delphi如何通过一个Button按钮调出inputbox，标题为‘请输入 提示为‘请输入姓名

然后，如果没有输入姓名的话提示‘你真的不想输入了吗’ 若点了YES ，退出；若是点了NO，返回返回输入界面。
如是输入了姓名，在 label 界面显示‘你的姓名为--------’
相关代码为
procedure TForm1.Button1Click(Sender: TObject);
begin
inputbox('信息','请输入姓名','');
end;

if edit1.Text:=''
begin
if messagedlg('你确认不输入了么？',mtconfination,[mbyes,mbno])=mrno then
edit1.SetFocus; else
label2.Caption :='Your name is:' +edit1.Text ;
end

多谢热心人帮帮忙，我找不出方法

Answer 1

这个应该是你想要的吧？
procedure TForm1.Button1Click(Sender: TObject);
var
tmpStr: string;
begin
while true do
begin
tmpStr := '';
if InputQuery('信息', '请输入姓名', tmpStr) then
begin
if Trim(tmpStr) = '' then
begin
if messagedlg('你确认不输入了么？', mtConfirmation, [mbyes,mbno], 0) = mryes then
break
else
continue;
end
else
begin
label2.Caption :='Your name is:' + tmpStr;
Break;
end;
end
else
Break;
end;
end;

追问

while true do
begin
tmpStr := '';
if InputQuery('信息', '请输入姓名', tmpStr) then
begin
if Trim(tmpStr) = '' then
===================================================
tmpstr是什么意思？inputquery 是输入什么呢 ？求讲解一下呗，没学到呢。这一段给讲下呗。。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
xmc:string;
begin
if edit1.text<>'' then EXIT;
xmc:='';
xmc:=inputbox('信息','请输入姓名','');
if xmc='' then
begin
if messagedlg('你确认不输入了么？',mtconfination,[mbyes,mbno])=mrno then
edit1.SetFocus;
end
else
begin
edit1.text:=xmc;
label2.Caption :='Your name is:' +edit1.Text ;
end;
end;

end;