Haber cambia ésta parte>
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;
por ésta otra>
Código Delphi
[-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
try
if not Assigned(FrmClientes)then
FrmClientes:=TFrmClientes.Create(Application);
Permisos(FrmClientes.Tag);
PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
FrmClientes.ShowModal;
finally
FreeAndNil(FrmClientes);
end;
end;
Prueba y nos comentas...
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7