Ver Mensaje Individual
  #4  
Antiguo 06-05-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Puedes usar el evento OnGetText del campo de la clave:

Código Delphi [-]
procedure TForm1.Table1ClaveGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  if DisplayText then
    Text := DupeString('*', Length(Field.AsString))
  else
    Text := Field.AsString;
end;

donde DupeString es una función de la unidad StrUtils.

Así, la columna mostrará asteriscos, pero mostrará la clave real cuando entres a editar el campo. No obstante, te invito a considerar si esto- mostrar la columna de claves -es realmente lo que quieres, porque no le veo mucho sentido a mostrar toda una columna con sólo asteriscos, ¿qué utilidad tiene? Claro, tienes la posibilidad de editar la contraseña en el mismo dbgrid, pero normalmente la contraseña es algo que edita sólo el propio usuario, y además, normalmente debería estar encriptada, con lo que no sirve editarla manualmente.

// Saludos
Responder Con Cita