mInput

<< Click to Display Table of Contents >>

Navigation:  Novatos > Mais Dicas Programação Delphi >

mInput

Previous pageReturn to chapter overviewNext page

Descrição

 

Pessoal, novo componente da mLib, o mInput.

Ele é um InputBox do Delphi, porém mais power e mais fofinho.

Não precisa compilar a lib, é só GetLastVersion

 

Como funciona

 

uses mInputUnit;

 

var  // Primeiro, para todos os exemplos declare uma var de retorno:

  Ret: TRetornoInput;

 

begin

  // para solicitar um string - modo mais simples

  Ret := mInput.GetStr('Digite uma descrição', False);

  if Ret.Ok then

    mDlg.Informa(Ret.Texto);

 

 

Modo avançado

 

  MaxSize      := 10;

  PermiteVazio := False;

  Ret := mInput.GetStr('Digite uma descrição','Titulo da Janela''Valor default', PermiteVazio, MaxSize);

  if Ret.Ok then

    mDlg.Informa(Ret.Texto);

 

Solicitando número inteiro

 

Ret := mInput.GetInt('Digite um número', False);

 

  if Ret.Ok then

    mDlg.Informa(IntToStr(Ret.Inteiro));

 

 

Solicitando data

 

Ret := mInput.GetDate('Digite uma data', False);

 

  if Ret.Ok then

    mDlg.Informa(DateToStr(Ret.Data));

 

 

Solicitando valor double

 

Ret := mInput.GetValor('Digite uma valor', False);

 

  if Ret.Ok then

    mDlg.Informa(FloatToStr(Ret.Valor));

 

 

Observação

 

Todas as rotinas tem o modo simples (2 parâmetros e o modo completo com opção de valor default, maxsize, etc)