MIDletPascal Help

showTextBox

procedure showTextBox(title: string; initialContents: string; maxSize: integer; constraints: integer);

Shows the text box on the screen. Text box occupies the whole device display and no other form elements except commands can be added to the screen. The 'constraints' can be any of the following:

TF_ANY - text field can contain any characters
TF_EMAIL - only email can be entered into text field
TF_NUMERIC - only number can be entered into text field
TF_PHONENUMBER - only phonenumber can be entered into text field
TF_URL - only URL can be enetered into the ext field

  var cont : command;
      quote : string;
  begin
    showTextBox('Enter message, '', 200, TF_ANY);
    cont := createCommand('Send', CM_SCREEN, 1);
    addCommand(cont);

    repeat
      delay(100);
    until getClickedCommand <> emptyCommand;

    quote := getTextBoxString;

    ...     
  end.