Formatando Campos Edit
Bom dia pessoal, to desenvolvendo um gerenciador de pagamento para uma empresa estou com dificuldades de formatar campo, tenho um campo agencia e conta necessito formatalo no KeyPress gostaria que formatace igual no modelo do banco do brasil veja..
[url]https://www2.bancobrasil.com.br/aapf/login.jsp?aapf.IDH=sim[/url]
Como os campos agencia e conta do bb.. como eu fasso para formatar daquela forma vai digitando e o ultimo numero digitado será o digito com o traço ( - )
Vlw abraço.
[url]https://www2.bancobrasil.com.br/aapf/login.jsp?aapf.IDH=sim[/url]
Como os campos agencia e conta do bb.. como eu fasso para formatar daquela forma vai digitando e o ultimo numero digitado será o digito com o traço ( - )
Vlw abraço.
Joilson Junior
Curtidas 0
Respostas
Eurismar
08/12/2008
Joilson, fiz esta rotina pra testar. Ver se resolve seu problema (Evento KeyUp)
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
s:String;
i:Integer;
begin
s := StringReplace(Edit1.Text,´-´,´´,[rfReplaceAll]);
i := Length(s);
if i > 1 then
Insert(´-´,s,i);
Edit1.Text := s;
keybd_event(VK_END, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); //posiciona o cursor no final da linha
end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
s:String;
i:Integer;
begin
s := StringReplace(Edit1.Text,´-´,´´,[rfReplaceAll]);
i := Length(s);
if i > 1 then
Insert(´-´,s,i);
Edit1.Text := s;
keybd_event(VK_END, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); //posiciona o cursor no final da linha
end;
GOSTEI 0
Joilson Junior
08/12/2008
Mravilha meu querido |o|
Vlw
Vlw
GOSTEI 0