Sobre ventana de Password

[silviodp]

Si es cierto, no era ese el código que yo había visto, perdón.-
Voy a probar con ese.
Gracias.

Silvio.-

[silviodp]

Cadetill:
por que cuando escribo el código:

begin
  Application.Initialize;
  Application.CreateForm(TModeloDatos, ModeloDatos);
  Application.CreateForm(TForm22, Form22);
  ModeloDatos.TblEmpresa.Active:=True;
  n:=ModeloDatos.TblEmpresa.FieldValues['Nombre'];
  Form1.Caption:='BIENES DE USO 1.0'+'  -  '+n;
  ModeloDatos.TblEmpresa.Active:=False;
  Form23:=TForm23.Create(Application);
  Form23.ShowModal;
  if Form23.ShowModal=mrYes then
   begin
        Application.CreateForm(TForm1, Form1);
        Application.Run;
   end

Y quiero ejecutar me da el siguiente error: [Error] CStock.dpr(43): Undeclared identifier: 'mrYes'.
Gracias.

Silvio.-

[__cadetill]

Empezado por silviodp

Y quiero ejecutar me da el siguiente error: [Error] CStock.dpr(43): Undeclared identifier: 'mrYes'.

Si buscas un poco en la ayuda de Delphi, verás que necesitas la unit Controls

Empezado por Delphi Help

TModalResult represents the return value from a modal dialog.

Unit

Controls

[silviodp]

Podrían decirme si éste código está bien o le falta algo, está asociado al botón que tengo en mi ventana de password, el cual tiene en la propiedad ModalResult el valor mrYes;

procedure TForm23.EntrarClick(Sender: TObject);
begin
  Modelodatos.TblLogin.Active:=True;
  If Modelodatos.TblLogin.Locate('Usuario',User.Text,[]) Then
  begin
    If ModeloDatos.TblLogin.FieldByName('Clave').AsString<>Pass.Text Then
       ShowMessage('Clave Incorrecta');
       Pass.SetFocus;
  end
  else
   ShowMessage('usuario inexistente');
   User.SetFocus;
end;

Gracias.

Silvio.-

[roman]

Este es el mismo código que el expuesto en el mensaje #11 (por tí) y sinceramente el compilador será más eficaz que nosotros para detectar si está bien o mal.

// Saludos

[silviodp]

Sí eso es cierto, pero mi pregunta se refiere a si el usuario es correcto y la pass también que se ejecuta?, porque compila, pero no hace lo que quiero.
Te digo lo que hace:
si el usuario y la pass son correctos: no me da ningún mensaje pero tampoco entra al programa lo hace la segunda vez que hago click en botón.
si el usuario y/o la pass no son correctos: arroja el mensaje correspondiente, pero la segunda vez que hago clik, por más que estos sigan siendo falsos entra lo mismo al programa.
No se si se explico?
Gracias.

Silvio.-

[jachguate]

Hola silvio.

Aqui hay un problema fundamental. Te diré lo que yo percibo. El problema es que vos queres hacer algo que no entendes. Cómo no lo entendes, en lugar de investigar un poco y aprender el funcionamiento y comportamiento de una ventana modal, asi como la forma de manipularla desde delphi, simplemente nos estas tirando trozos de código a ver si alguien resuelve tu problema.

Estas a una sola línea de conseguirlo; pero sinceramente yo paso. No me gusta quedarme con la sensación de haber hecho el trabajo de alguien mas. Si te esforzas un poco, y lees en la ayuda de delphi sobre el método ShowModal... estoy seguro que en algunas horas vas a poder resolver vos solo tu problema... y lo mas importante: habras aprendido. Esto significa que en adelante no solo no vas a tener problemas con formas modales, sino vas a estar en capacidad de ayudar a alguien mas que los tenga.

Eso es lo que yo espero que pase. Me costaria mucho menos escupir una línea de código que todo este rollo... pero ya te dije... es una cuestión de conciencia

Por ahora... te dejo solo, y espero que en este mismo hilo nos informes cuando ya hayas podido resolver el problema. Tenes toda la ayuda de delphi, el histórico de los foros, los magnificos libros de Ian Marteens (por los que no tenes que gastar un solo centavo!... mas que la conexión a internet para descargarlos) y muchos otros buenos libros en el mercado.

Hasta luego.