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
[-]
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; End;
Espero que se entienda el problema.
Desde ya, muchas gracias.
Saludos.