Bloquear MainMenú o MdiForm

[[jcarteagaf]]

Podrias hacer un pequeño procedimiento que haga eso

Código Delphi [-]
procedure TForm1.HabilitaMenu(bHabilitar : boolean);
var
   i : smallint;
begin
  for i:= 0 to mnuMiMenu.Items.count - 1 do
      mnuMiMenu.Items[i].enabled := bHabilitar;
end;

............  y lo llamarias asi

Habilitar(false);
Leer_usuario;
Habilitar(true);

Saludos

P.D. Parece que los bolivianos estamos muy activos hoy en el Club.....saludos a todos.