ventana para permisos

[microbiano]

resulta que tengo que implementar una ventana para verificar el usurio, contraseña y los permisos para hacer cierta funcion ejemplo, eliminar,insertar,modificar, esto en algunas ventanas, pues bien ya tengo el diseño de la venta pero como hago para no escribir en todas las que lo encesite el cigo ,

estaba pensando en una funcion en el DataModule
mas o menos asi.

Código Delphi [-]
function valida_usuario(wnombreusuariovalida,wcontrasenavalida:string): string;
begin
  //funcion
end;

el problema es que no se como implementarla completamente alguna sugerencia.

de antemano muchas gracias a todos

[[duilioisola]]

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.

[microbiano]

ok deja intentare implementarlo muchas gracias

[[ElKurgan]]

También puedes tener un componente TActionList, y asociar cada menú y cada botón a una acción. En el método "update" de la acción le dices que el menú o botón esté activo según el perfil del usuario (Estoy hablando de cabeza, no tengo ahora mismo el Delphi a mano, pero más o menos es asi).

Saludos