关于inputbox

Question

需要inputbox传递的值，如果是inputbox上的ok键则执行某段程序，若为cancle键则执行另一段程序，语句该怎么写。谢谢各位达人！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
  NewString: string;
  ClickedOK: Boolean;
begin
  NewString := 'Default String';
  Label1.Caption := NewString;
  ClickedOK := InputQuery('Input Box', 'Prompt', NewString);
  if ClickedOK then                 { NewString contains new input string }
    Label1.Caption := 'The new string is ''' + NewString + '''';
end;

Answer 2

默认inputbox('','','1');,随后查看返回的是不是1,要是1的话就是ok按钮，否则是cancel