Cita:
Empezado por Manuel
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