Maskara em ImputBox

Delphi

02/06/2004

Pessoal me ajudem!

Alguem sabe como colocar Maskara em um [b:452030d114]ImputBox[/b:452030d114]

Por exemplo para ele aceitar somente : ´00/0000´


Zunker

Zunker

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

02/06/2004

Colega,

Faça uma alteração na InputQuery e faça overload..


GOSTEI 0
Zunker

Zunker

02/06/2004

Me de um exemplo de como faz isso, pois eu aprendi a mexere com inputbox ontem e nem tenho conhecimentos como faz o inputquery.

Se puder me ajude.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

02/06/2004

Colega,

Está função foi implementada por Fernando Allen (Moderador) há algum tempo:

function InputQuery(const ACaption, APrompt: string;
var Value: string; const AMask: String = ´´): Boolean; overload;
var
Form: TForm;
Prompt: TLabel;
Edit: TMaskEdit; // redefinir o componente Edit para TMaskEdit
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
begin
Result := False;
Form := TForm.Create(Application);
with Form do
  try
    Canvas.Font := Font;
    DialogUnits := GetAveCharSize(Canvas);
    BorderStyle := bsDialog;
    Caption := ACaption;
    ClientWidth := MulDiv(180, DialogUnits.X, 4);
    ClientHeight := MulDiv(63, DialogUnits.Y, 8);
    Position := poScreenCenter;
    Prompt := TLabel.Create(Form);
    with Prompt do
    begin
      Parent := Form;
      AutoSize := True;
      Left := MulDiv(8, DialogUnits.X, 4);
      Top := MulDiv(8, DialogUnits.Y, 8);
      Caption := APrompt;
    end;
    Edit := TMaskEdit.Create(Form); // Mudar p/ maskedit - OK
    with Edit do
    begin
      Parent := Form;
      Edit.EditMask := AMask; // Atribuir a máscara
      Left := Prompt.Left;
      Top := MulDiv(19, DialogUnits.Y, 8);
      Width := MulDiv(164, DialogUnits.X, 4);
      MaxLength := 255;
      Text := Value;
      SelectAll;
    end;
    ButtonTop := MulDiv(41, DialogUnits.Y, 8);
    ButtonWidth := MulDiv(50, DialogUnits.X, 4);
    ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
    with TButton.Create(Form) do
    begin
      Parent := Form;
      Caption := SMsgDlgOK;
      ModalResult := mrOk;
      Default := True;
      SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
        ButtonHeight);
    end;
    with TButton.Create(Form) do
    begin
      Parent := Form;
      Caption := SMsgDlgCancel;
      ModalResult := mrCancel;
      Cancel := True;
      SetBounds(MulDiv(92, DialogUnits.X, 4), ButtonTop, ButtonWidth,
        ButtonHeight);
    end;
    if ShowModal = mrOk then
    begin
      Value := Edit.Text;
      Result := True;
    end;
  finally
    Form.Free;
  end;
end;



GOSTEI 0
Zunker

Zunker

02/06/2004

o q eu errei usando o seu codigo


Variavel
Controle.Feriado := Inputquery(´Informação´,´Informe o Ano que deseja cadastrar os Feriados´,Edit);


GOSTEI 0
Rômulo Barros

Rômulo Barros

02/06/2004

procedure TForm1.Button1Click(Sender: TObject);
var
  MinhaVariavel : String;
begin
Inputquery(´Informação´,´Informe o Ano que deseja cadastrar os Feriados´,MinhaVariavel);
end;

end.


Observe que o último parâmetro do método Inputquery tem que ser uma variável que será passada por referência. Essa variável recebera o conteúdo do inputquery :roll:


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

02/06/2004

Colega,

Se utilizar a InputQuery alterada acima, deverá passar um último parâmetro que é a máscara.


GOSTEI 0
POSTAR