Unit MI_UI_InputBox_lcl_u

A função InputBox cria um formulário passado por Template e executa os eventos do formulário passado pelos parâmetros.

• PARÂMETROS

  • atitle; // Título do formulário;

  • aTemplate; // Modelo do formulário cuja a sintaxe segue abaixo:

  • aOnEnter; // Executado ao entrar no formulário criado baseado no Template;

  • aOnExit; // Executado ao sair do formulário criado baseado no Template;

  • aOnEnterField; // Executado ao entrar um campo focado;

  • aOnExitField; // Executado ao sair do campo focado;

  • aOnCloseQuery // Executado ao fechar o form se CanClose = true;

• SINTAXE DO MODELO

  • Exemplo

    
    const
      Template := '˜Nome do Aluno:˜\sssssssssssssssssssssssss'+lf+
                  '˜     Endereço:˜\sssssssssssssssssssssssss`ssssssssssssssss'+lf+
                  '˜          Cep:˜\##-###-###'+lf+
                  '˜       Bairro:˜\sssssssssssssssssssssssss'+lf+
                  '˜       Cidade:˜\sssssssssssssssssssssssss'+lf+
                  '˜       Estado:˜\sssssssssssssssssssssssss'+lf+
                  '˜        Idade:˜\BB'+lf+
                  '˜  Mensalidade:˜\R,RRR.RR';

  • Tipos de dados do formulário:

    • s = Char alfanumérico

    • # = Char numérico

    • R = Double

    • B = Byte

• Exemplo de chamada da função:

  
  if InputBox('Dados do aluno',
               '˜Nome do Aluno:˜\sssssssssssssssssssssssss'+lf+
               '˜     Endereço:˜\sssssssssssssssssssssssss`ssssssssssssssss'+lf+
               '˜          Cep:˜\##-###-###'+lf+
               '˜       Bairro:˜\sssssssssssssssssssssssss'+lf+
               '˜       Cidade:˜\sssssssssssssssssssssssss'+lf+
               '˜       Estado:˜\sssssssssssssssssssssssss'+lf+
               '˜        Idade:˜\BB'+lf+
               '˜    Mensalidade:˜\R,RRR.RR',
               nil,nil,nil,nil,nil
          ) = MrOk
  then begin
       end;