Se eu entendi corretamente o que vc quer. Coloque um TMaskEdit no seu Form e
atribua estes códigos:
// No ONKEYDOWN
procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
old_Mask : String;
begin
If (Shift=[]) Then Begin
MaskEdit1.SelStart := 0;
old_Mask := MaskEdit1.EditMask;
MaskEdit1.EditMask := '';
If (Key<>VK_DELETE) Then
MaskEdit1.Text := MaskEdit1.Text + CHR(Key)
Else
MaskEdit1.Text := Copy(MaskEdit1.Text,2,Length(MaskEdit1.Text));
MaskEdit1.EditMask := old_Mask;
MaskEdit1.SelStart := 0;
MaskEdit1.SelLength := 0;
Key := 0;
End;
end;
// No ONENTER
procedure TForm1.MaskEdit1Enter(Sender: TObject);
begin
MaskEdit1.SelStart := 0;
end;
Vc pode relacionar todos seus MaskEdit´s a estes eventos e/ou criar um
componente fazendo isto. Detalhe, possivelmente vc devera tratar algumas outras
teclas.
Espero ter ajudado, abraços.
Rodinei Amorim
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br
From: Joanes J. Chiesa
Sent: Monday, August 03, 2009 10:39 PM
To: delphi-br yahoogrupos
Subject: [delphi-br] Comportamento MaskEdit
Boa noite Pessoal,
Estou desenvolvendo um sistema que possui muitos campos com datas, com máscaras
feitas com componentes TMaskEdit, gostaria que o comportamento destes
componentes fosse assim: quando o componente receber o foco, gostaria que o
cursor ficasse somente do lado esquerdo do maskedit, e que permanecesse somente
do lado esquerdo enquanto o usuário digita os valores, e também que ao
preencher todos os espaços da máscara, caso o usuário continue digitando
comesse a sobrescrever no inicio.
alguém já desenvolveu algum comportamento assim ou parecido? alguém poderia me
dar uma ideia para começar?!
Obrigado,
Joanes
__________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
