M I D l e t P a s c a l
ShowTextBox

Показывает на экране поле ввода текста типа Text Box. Поле ввода при этом занимает весь дисплей устройства и другие элементы формы при этом не будут отображаться (кроме команд). Параметр constraints описывает тип вводимой информации и может принимать такие значения:

·TF_ANY - Можно вводить любой текст  
·TF_EMAIL - Только EMAIL адрес  
·TF_NUMERIC - Только цифры  
·TF_PHONENUMBER - Только номер телефона  
·TF_URL - Только адрес странички в Интернете  


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

 



Пример

var cont : command;
      quote : string;
begin
    showTextBox('Введите сообщение', '', 200, TF_ANY);
    cont := createCommand('Отправить', CM_SCREEN, 1);
    addCommand(cont);

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

    quote := getTextBoxString;

    ...     
end.





Совместимость

MIDP1.0




Требуемый модуль

Не требуется




Смотри также