Classe TMI_UI_InputBox

O Método InputBox gera um formulário baseado no template passado em aTemplate .

• PARÂMETROS

  • aTitle : AnsiString;

    • Título do formulário;

  • aTemplate: AnsiString;

    • Modelo do formulário onde:

      • O caractere ˜ marca o inicio e o fim dos rótulos;

      • O caractere \ marca o inicio do buffer dos campos onde:

        • s : Caractere alfanumericos minusculos e maiusculos;

        • S : Caractere alfanumericos maiusculos;

        • L : Inteiro longo de 4 bytes;

        • # : Indica que na posição só pode editar número alfanumérico;

        • chFN : Informa que a sequencia a seguir é o nome do campo;

        • ˆM : Fim de linha;

  • aOnCloseQuery:TOnCloseQuery ;

  • aFont : AnsiString;

  • aOnEnter:TOnEnter ;

  • aOnExit:TOnExit;

  • aOnEnterField:TOnEnterField;

  • aOnExitField:TOnExitField;

  • aIn_JSONObject :TJSONObject;

    • conteúdo inicial do formulário;

• RETORNA

  • TModalResult;

    • Botão MrOk :

      • Se confirmado.

    • Botão MrCancel;

      • Se não confirmado.

  • aOut_JSONObject: TJSONObject

    • Retorna neste parâmetro os dados editados do formulário;

• Exemplo de uso está no método testInputBox dor formulário TMI_UI_InputBox_lcl:

  
  class procedure TMI_UI_InputBox_lcl.testInputBox;
    var
      in_JSONObject,
      out_JSONObject : TJSONObject;
  begin
    with TMi_rtl,MI_UI_InputBox do
    begin
      in_JSONObject := TJSONObject.Create(['id'      , 1,
                                        'nome'    ,'Paulo Sérgio',
                                        'endereco','Rua Francisco de Souza Oliveira',
                                        'cep'     ,'61624-300']);
  
      //Exemplo com eventos
      if InputBox('Teste com eventos',
          ' ˜Id:      ˜\LLLLLL'+chFN+'id'+ˆM+
          ' ˜Nome:    ˜\sssssssssssssssssssssssssssss`sssssssssssssssssssss'+ChFN+'Nome'+ˆM+
          ' ˜Endereço:˜\sssssssssssssssssssssssssssss`ssssssssssssssssssssssss'+ChFN+'Endereco'+ˆM+
          ' ˜Cep:     ˜\##.###-###'+ChFN+'cep'+ˆM
          ,  nil,'',nil,nil,nil,nil
          ,in_JSONObject
          ,out_JSONObject) = mrok
      then begin
  
             in_JSONObject.free;
             out_JSONObject.free;
           end;
  
    end;
  
  end;

O Método InputBox recebe um template de um formulário, um json em aIn_JSONObject dos dados iniciais e retorna os dados digitados no json aOut_JSONObject e em result da função retorna o iteiro MrOk ou mrCancel.

• Exemplo de uso está no método testInputBox dor formulário TMI_UI_InputBox_lcl:

O Método InputBox recebe um template de um formulário, o evento aOnCloseQuery, um json em aIn_JSONObject dos dados iniciais e retorna em os dados digitados em aOut_JSONObject se o botão MrOk for pressionado.

• Exemplo de uso está no método testInputBox dor formulário TMI_UI_InputBox_lcl:

O método InputValue ler um valor na tela e retorna em aValue o valor e em result retorna MrOk ou MrCancel