How to create a button that adds InputFields when clicked?

Question

I would like to create a button 'ADD' that creates a new InputField each time the user clicks it.

I have tried something like this so far:

CreateWindow[
 DialogNotebook[
  TextCell["Click on + button to add more cells"]
   Button["ADD", InputField["Enter new input here"]]
 ]
]

The above method does not work. What would be a good and simple workaround for this problem?

Answer 1

cnt = {};
i=0;                                        (*added*)
CreateWindow[DialogNotebook[{
   "Click on ADD button to add more cells:",
   Dynamic@Column@cnt,
   Button["ADD", 
   i++;                                     (*added*)
   nm=ToExpression["a"<>ToString@i];        (*added*)
   AppendTo[cnt, 
    InputField[Dynamic@Evaluate@nm,         (*updated*)
               FieldHint->"Enter new input here"]]]   
   }, WindowSize -> 250, 
  WindowElements -> {"VerticalScrollBar", "StatusArea"}]]

The array of inputfields stores data in specially created variables a1, a2,....ax.

Answer 2

Take a look at this resource function: https://resources.wolframcloud.com/FunctionRepository/resources/ListInputField

You can download the source notebook to see how it works.