Enviando y reciviendo parametros

[[Lepe]]

Yo usaria un procedimiento público:

 
type
TApertura =(Ver, Modificar, Anadir, Borrar) ; // depende de lo que quieras

procedure TFRMXXX.ModoApertura(const modo:TApertura=Ver );
begin
 if modo = Ver then
 begin 
   // inhablito controles
 end;
 TFRMXXX.ModoActual := modo;
end;

//Así desde cualquier Forma puedes hacer la llamada:
ModoApertura(Ver); ó  ModoApertura() // por defecto a "Ver"

Si necesitas saber el modo actual, puedes usar una variable publica (ModoActual)


Espero te sirva de algo .