InputBox com Data
16/03/2008
0
Olá Amigos!
Eu uso um InputBox para informar uma data, e eu preciso que o Edit do InputBox venha mascarado...
Já achei na net um inputxbox aberto, que é usado pra pôr senha, mas não consegui reprograma-lo para ser usado com mascara para data.
Alguém pode me ajudar?
Eu uso um InputBox para informar uma data, e eu preciso que o Edit do InputBox venha mascarado...
Já achei na net um inputxbox aberto, que é usado pra pôr senha, mas não consegui reprograma-lo para ser usado com mascara para data.
Alguém pode me ajudar?
Webjoel
Curtir tópico
+ 0
Responder
Post mais votado
16/03/2008
Amigos, problema resolvido, segue abaixo o código completo da função!
Tem que declarar nos uses: Mask.
Esta função pode ser mais implementada ainda! para ser usada com outros tipos de mascara, só passando mais uma váriável, sendo seu uso se tornando mais genérica.
E dá-lhe F9!
function InputBoxData(ACaption, APrompt : string): string; var Form: TForm; Prompt: TLabel; Edit : TMaskEdit; DialogUnits: TPoint; ButtonTop, ButtonWidth, ButtonHeight: Integer; Value: string; I: Integer; Buffer: array[0..51] of Char; begin Result := ´´; Form := TForm.Create(Application); with Form do try Canvas.Font := Font; for I := 0 to 25 do Buffer[I] := Chr(I + Ord(´A´)); for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord(´a´)); GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(DialogUnits)); DialogUnits.X := DialogUnits.X div 52; 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); with Edit do begin Parent := Form; Left := Prompt.Left; Top := MulDiv(19, DialogUnits.Y, 8); Width := MulDiv(164, DialogUnits.X, 4); MaxLength := 255; EditMask := ´!99/99/0099;1; ´; 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 := ´OK´; ModalResult := mrOk; Default := True; SetBounds(MulDiv(38, DialogUnits.X, 4),ButtonTop, ButtonWidth,ButtonHeight); end; with TButton.Create(Form) do begin Parent := Form; Caption := ´Cancel´; ModalResult := mrCancel; Cancel := True; SetBounds(MulDiv(92, DialogUnits.X, 4),ButtonTop, ButtonWidth,ButtonHeight); end; if ShowModal = mrOk then begin Value := Edit.Text; Result := Value; end; finally Form.Free; Form:=nil; end; end;
Tem que declarar nos uses: Mask.
Esta função pode ser mais implementada ainda! para ser usada com outros tipos de mascara, só passando mais uma váriável, sendo seu uso se tornando mais genérica.
E dá-lhe F9!
Webjoel
Responder
Clique aqui para fazer login e interagir na Comunidade :)