Hola a toda la comunidad, voy a tomar el ejemplo ya puesto, si deseo introducir la Cédula: V-12.837.967, yo quisiera que al colocar 'V' se marque automaticamente '-' luego coloco '12' y automaticamente '.', asi sucesivamente, en mi caso seria MEP-04598-005. Al colocar 'MEP' se marque '-' y que no se pueda volver a colocar una letra, osea que el Maximo de las letras sea tres. y luego que la letra sea introducida, se pueda comenzar a introducir los numeros. ejemplo, coloco '04598' y se marca automaticamene '-' para colocar los ultimos 3 numeros, esto fue lo que se me ocurrio, pero no funciona correctamente,
Código Delphi
[-] procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin if StrLen( PChar(Edit2.Text) ) < 3 then
if not( key in [#8,'m','e','p','-']) then
begin
MessageBeep(MB_ICONERROR);
key := #0;
if StrLen( PChar(Edit2.Text) ) > 3 then
if not( key in [#8,'0'..'9','-']) then
begin
MessageBeep(MB_ICONERROR);
key := #0;
end;
end;
end;
Saludos