Fórum Mascara em um ComboBox #328540
03/09/2006
0
Isso é possível ?
Antecipadamente Agradeço a Atenção...
Adelor Silva
Curtir tópico
+ 0Posts
03/09/2006
Marco Salles
procedure TForm1.Button1Click(Sender: TObject); const mascar=´(99:99:99);0;_´; begin combobox1.Items.Add(MaskDoFormatText(mascar,edit1.Text,#48)); end;
Gostei + 0
03/09/2006
Night_man
Gostei + 0
03/09/2006
Adelor Silva
Quando eu preciono o TAB e o ComboBox recebe o Foco... eu preciso que a Máscara seja criada...
Marco Salles... a sua dica da erro no final do [b:b1c2fa6141]´const´[/b:b1c2fa6141], e não compila... mesmo assim obrigado...
Gostei + 0
06/09/2006
Adelor Silva
Gostei + 0
06/09/2006
Night_man
como assim mascara??
seria uma mistura de maskedit com combo?!
Gostei + 0
07/09/2006
Adelor Silva
eu programei o ComboBox para ter alguns valores de horas, do tipo
08:00:00
08:15:00
08:30:00
08:45:00
09:00:00
mas eu gostaria de colocar uma máscara, caso o meu usuário queira coloca uma hora que não está na lista que eu disponibilizo para ele... digamos que ele queira colocar: 08:10:00, ele vai ter que digitar tudo...
o que eu gostaria era de facilitar a a vida do usuário... com a máscara de horário
__:__:__ dai ele não precisa digitar os dois pontos (:), e sím somente os dígitos correspondentes ao horário...
mas esta máscara eu gostaria de atribuir, quando o componente recebesse o foco, se ele quiser digitar a máscara estaria pronta... caso contrário ele optaria por um valor previamente programado que iria escolher na lista de opções...
Espero ter tirado sua dúvida... Obrigado pela sua disposição de ajudar...
Gostei + 0
07/09/2006
Marco Salles
uses MaskUtils;
{$R *.dfm}
procedure TForm1.Cb1Change(Sender: TObject);
const
mascar=´99:99:99;0;_´;
var
formato:String;
posicao:integer;
begin
if cb1.Text = ´´ Then
begin
cb1.OnChange:=nil;
cb1.Text:=´ : : ´;
cb1.OnChange:=Cb1Change;
end
else
begin
formato:=cb1.Text;
formato:=StringReplace(cb1.Text,´:´,´´,[rfReplaceAll, rfIgnoreCase]);
formato:=trim(formato);
cb1.Text:=MaskDoFormatText(mascar,formato,´ ´);
case length(formato) of
1: cb1.SelStart:=1;
2: cb1.SelStart:=3;
3: cb1.SelStart:=4;
4: cb1.SelStart:=6;
5: cb1.SelStart:=7;
6: cb1.SelStart:=8;
end;
end;
end;procedure TForm1.Cb1Enter(Sender: TObject); const mascar=´99:99:99;0;_´; var formato:String; begin formato:=cb1.Text; formato:=StringReplace(cb1.Text,´:´,´´,[rfReplaceAll, rfIgnoreCase]); formato:=trim(formato); cb1.Text:=MaskDoFormatText(mascar,formato,´ ´); end;
apimente a gosto.. Por exemplo programar o Keypress para receber so numeros , ou definir um tamanho para o combobox , para evitar valors maiores do que o formato.. Emfim ...
Gostei + 0
07/09/2006
Adelor Silva
Agradeço por disponibilizar tempo para ajudar a outros, desta forma colaborar com meu aprendizado... fico grato... valew
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)