Ver Mensaje Individual
  #2  
Antiguo 04-02-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Puedes tener una ventana con los edits correspondientes a user y password y dos botones, Ok y Cancelar
La función llamaría a la ventana con un ShowModal
Al botón Ok le asignas el ModalResult mrOk
Al botón Cancelar le asignas el ModalResult mrCancel

Código Delphi [-]
function DataModule.UsuarioValido : boolean
begin
  if (FMPideUsuarioYContrasena.ShowModal = mrOK) then
  begin
     {Salio de la ventana presionando el Botno OK}
     Result := ValidaUsuario(FMPideUsuarioYContrasena.EdUsuario.Text,FMPideUsuarioYContrasena.EdPassword.Text);
  end
  else
     {Salio de la ventana presionando el Botno Cancelar}
      Result := False;
end;
Nota: Mira el help de ShowModal y el ejemplo que trae.

Última edición por duilioisola fecha: 04-02-2011 a las 09:21:44.
Responder Con Cita