Ver Mensaje Individual
  #2  
Antiguo 16-05-2013
Avatar de ozsWizzard
ozsWizzard ozsWizzard is offline
Miembro
 
Registrado: may 2004
Ubicación: Murcia
Posts: 190
Reputación: 20
ozsWizzard Va por buen camino
Dos cosillas...

1ª Habiendo una forma fácil de hacer lo de los asterisco, yo no cambiaría los ".pas" de Delphi.

La forma de hacer lo de los asteriscos es esta:

Crear este procedimiento
Código Delphi [-]
procedure InputBoxSetPasswordChar(var Msg: TMessage);
var
  hInputForm, hEdit, hButton: HWND;
begin
  hInputForm := Screen.Forms[0].Handle;
  if (hInputForm <> 0) then
  begin
    hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
    {
      // Change button text:
      hButton := FindWindowEx(hInputForm, 0, 'TButton', nil);
      SendMessage(hButton, WM_SETTEXT, 0, Integer(PChar('Cancel')));
    }
    SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
  end;
end;

Y justo antes de la llamada al InputQuery, por ejemplo, poner esta instrucción
Código Delphi [-]
   PostMessage(Handle, InputBoxMessage, 0, 0);



Si aún así prefieres la modificación, una vez hayas hecho copia de seguridad de los ".pas" originales y sus correspondientes dcu, deberías borrar las dcu de delphi. Su ubicación depende de la instalación y el IDE que tengas. En mi caso, para que te hagas una idea, la ruta es esta

"C:\Program Files\Embarcadero\RAD Studio\9.0\lib\win32\debug"

Saludos
__________________
La Madurez se llama...
~~~Gaia~~~
Responder Con Cita