Asi es como se llama al Formulario.
Código Delphi
[-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
Try
if Application.FindComponent('FrmClientes') = nil then
FrmClientes := TFrmClientes.Create(Owner);
Permisos(FrmClientes.Tag);
PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
FrmClientes.ShowModal;
finally
FrmClientes.free;
end;
end;
Asi es como se cierra el formulario.
Código Delphi
[-]procedure TFrmClientes.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
QryConsulta.Close;
QryLmTipCl.Close;
QryLmFinan.Close; QryLmSectorDian.Close;
QryLmAecon.Close;
QryGnDivip.Close;
QryLmRegim.Close;
QryLmTipCu.Close;
QryOmEmiso.Close;
QryLmPjRep.Close;
QrySegmClie1.Close;
QrySegmClie2.Close;
QrySegmClie3.Close;
QrySegmCanal1.Close;
QrySegmCanal2.Close;
QrySegmCanal3.Close;
QryLmTipIden.Close;
Action := caFree; end;
Gracias por la colaboracion y si necesitan algo mas me avisan por favor.