The 4D language features a command called "Request" that will open a dialog box that can be used to collect information from the user. An example is shown below (with 4D code):
$response:=Request("Please answer my request!")
This command is useful for collecting small pieces of information and far less complex to implement than creating a custom form to collect such information.
As an optional parameter to this command you can specify the default response. Here is an example:
$response:=Request("Please answer my request!";"NO!")
This command features a good amount of flexibility. More information can be found in the documentation for the Request command: