Ver Mensaje Individual
  #3  
Antiguo 04-07-2008
Avatar de totote
totote totote is offline
Miembro
 
Registrado: oct 2006
Posts: 150
Reputación: 20
totote Va por buen camino
hola Roman, tengo el mismo problema que Patricio y utilice la el código que posteaste, pero hace lo de mostrarse y cerrarse, primero lo puse en el evento onshow, despues oncreate y despues en onactivate, pero en todos pasa lo msimo me lo muestra y desaparece muy rapido pero hace ese "pestaneo" como puedo hacer para que no lo haga?

el código es este:
Código Delphi [-]
procedure TfrmBase.FormShow(Sender: TObject);
begin
  if not (Usuario.GetPermiso) then
  begin
    showmessage('No tiene permiso para ver esta información');
    PostMessage(Handle, WM_CLOSE, 0, 0);
  end;
end;

Saludos
__________________
¡Oh nooo! no compartas, compartir es pirateria, compartir te llevara a la carcel - Revolution OS
Responder Con Cita