Ver Mensaje Individual
  #9  
Antiguo 26-11-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Reputación: 25
egostar Va camino a la fama
Cita:
Empezado por Manuel Ver Mensaje
Todo parte de una forma principal que tiene un menú, y cargo las demas formas a medida que el usuario selecciona las opciones, ejemplo:

Código Delphi [-]
procedure TFMPrincipal.Inasistencia2Click(Sender: TObject);
begin
    try
        Screen.Cursor := crHourGlass;
        Fasistenciaanual:= TFasistenciaanual.create(Self);
    finally
        Screen.Cursor := crDefault;
    end;
        Fasistenciaanual.Showmodal;
        Fasistenciaanual.Free;
end;


Coincido con AzidRain, lo que estas haciendo no me parece correcto, imaginate que pasa si por cualquier circunstancia no se puede crear la forma TFasistenciaanual, de todas todas la tratas de abrir, eso me parece un gran vacío.

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita