Ver Mensaje Individual
  #1  
Antiguo 11-09-2012
Walterio Walterio is offline
Miembro
 
Registrado: nov 2006
Posts: 46
Reputación: 0
Walterio Va por buen camino
Redefinir procedure OnShow en form heredado.

Hola a todos.

Ya se que mi consulta es de principiante, a pesar de estar programando hace ya varios años con Delphi 7, y ahora con Lazarus y Delphi 6, pero hasta ahora nunca me tocó hacer lo que necesito.
Paso a explicar :
Tengo un TForm (TFrmABMGeneric) donde lo construyo para utilizarlo como form padre.Este, en su evento OnSHow hace esto :

Código Delphi [-]
{ Conecto el dataset de la vista con el del form ABM o el Form ABM Master }
  if (IsABMDetail = false) and (IsABMLookup = false) and
     not (TfrmGenericGrid(MainForm.ActiveMDIChild).Entidad[6] = 'T') then
    dsChild.DataSet := TfrmGenericGrid(MainForm.ActiveMDIChild).cdsMaster;

  ActNuevo.Enabled := not (IsReadOnly);
  ActGuardar.Enabled := not (IsReadOnly);
  ActEditar.Enabled := not (IsReadOnly);
  ActDeshacer.Enabled := not (IsReadOnly);
  ActEliminar.Enabled := not (IsReadOnly);
 ...

Y justo necesito crear un form heredado de este último, pero que no tiene que ejecutar la linea "dsChild.DataSet := TfrmGenericGrid(MainForm.ActiveMDIChild).cdsMaster;" ya que yo le tengo que asignar otros valores y es lo único del form padre que tengo que modificar...al menos hasta ahoa, ja...!!!, y la pregunta del millón es ¿cómo...?.
Desde otro form lo creo y lo muestro, pero para que funcione correctamente, debo modificar los valores antes mencionados.
Del form padre, tengo muchísimos otros que se crean desde éste y funcionan correctamente, pero veo que tal vez esto último me pase a partir de ahora.

Código Delphi [-]
      with TCC824Detalles.Create(Application) do
      Begin
        sTDC  := cdsCCC.FieldByName('TDC009').AsString;
        sNDC  := cdsCCC.FieldByName('NDC009').AsString;
        sLDC  := cdsCCC.FieldByName('LDC009').AsString;
        ShowModal; // Aqui tengo mi problema....
      End;

Espero que se entienda el problema.

Desde ya, muchas gracias.

Saludos.
Responder Con Cita