Cita:
Empezado por rgstuamigo
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...
|
Hola Reemplacé el código con el que me enviaste y aún me sale el error de Access Violation. Además cuando cierro el formulario y lo intento abrir de nuevo me dice que ya existe un formulario llamado frmclientes, adjunté las imágenes que me salen. Espero que sirvan de algo.
Gracias por la colaboracion y quedo a la espera de sus comentarios.