Yo usaria un procedimiento público:
Código:
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
.