Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   DialogBox con MaskEdit? (https://www.clubdelphi.com/foros/showthread.php?t=91523)

aguml 24-02-2017 21:47:51

DialogBox con MaskEdit?
 
Creo que el titulo es muy directo a lo que quiero conseguir. El caso es que tengo un DialogBox donde pido la contraseña pero claro, todo el mundo podria verlo y la idea es que al introducir la contraseña aparezcan asteriscos y que yo sepa no se puede hacer de manera sencilla con el DialogBox. Lo he intentado con un Form hecho por mi con un MaskEdit pero claro, al mostrar ese form el codigo desde donde fue llamado no se queda a la espera del resultado y el resultado no es el esperado. ¿Como podría hacer esto?

ecfisa 24-02-2017 22:23:16

Hola.

No entiendo por que el resultado no es el esperado cuando usas otro formulario, este ejemplo simplificadísimo devuelve de forma correcta la acción:

Form login,
Código PHP:

void __fastcall TfrmLogin::FormCreate(TObject *Sender)
{
  
EditName->Text             "";
  
EditPassword->Text         "";
  
EditPassword->PasswordChar '*';
  
bitbtnAccept->ModalResult  mrOk;
  
bitbtnCancel->ModalResult  mrCancel;
}

void __fastcall TfrmLogin::FormClose(TObject *SenderTCloseAction &Action)
{
  if ( 
EditName->Text != "pepe" ModalResult mrCancel;
  if ( 
EditPassword->Text != "1234" ModalResult mrCancel;
  
Action caFree;
}

void __fastcall TfrmLogin::FormDestroy(TObject *Sender)
{
  
frmLogin NULL;


Ejemplo de llamada,
Código PHP:

#include "frLogin.h"
...

{
  if ( 
frmLogin == NULL )
    
frmLogin = new TfrmLogin(0);

  if ( 
frmLogin->ShowModal() == mrCancel)
    
ShowMessage("No posee acceso");
  else
    
ShowMessage("Bienvenido");


Saludos :)

aguml 24-02-2017 23:39:52

Uuuufff verdad, no recordé la opción de ponerla en modal. Así va genial. Gracias.


La franja horaria es GMT +2. Ahora son las 10:53:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi