Sumar 2 valores ubicados en 2 celdas de sendos grids en diferentes ventanas.

[[newtron]]

Hola.

No sé si he pillado lo que quieres decir pero si tuvieras dos variables en las que fueras guardando el valor de la celda de uno y otro grid según vas picando en uno y otro podrías hacer las operaciones entre ellas, ¿no?.

Saludos

[Casimiro Noteví]

Tampoco entiendo bien la pregunta, ¿dices que tienes dos ventanas hijas donde están los datos y que el cálculo debe hacerlos la ventana padre?.

[[AzidRain]]

Digamos que son dos ventanas hijas, cada una tiene un grid sencillo digamos de 3 x 3 (o sea nueve celdas) con valores numericos cada una. La idea es que al ser amodales podemos seleccionar una u otra ventana. Ahora bien, digamos que selecciona una celda cualquier en cada ventana, ¿Como podría hacer el cálculo de la suma (o cualquier otra operación) de las celdas seleccionadas? Habia pensado en que se mandara un mensaje a su padre para indicar: padre, que me han seleccionado un celda con este valor x y el padre se encargara de mantener el total de la operación, si cerramos la celda o seleccionamos otra cosa el mensaje sería, "padre, ya no me han seleccionado nada" y entonces restamos el valor (en caso de suma). El chiste es que pueda hacer con cualquier número de ventanas hijas.

[[Chris]]

mmm creo entender lo que quieres Azid...

Según entiendo el problema, yo lo que haría sería implementar un mensaje de Windows a cómo sugieres y luego en el padre hacer la suma... por ejemplo así:

en las ventanas hijas, al seleccionar una celda o cerrar la ventana:

Código Delphi [-]
begin
    PostMessage(FormularioPadre.Handle, WM_SELECTEDCELLCHANGED, 0, 0);
end;

En el formulario padre:

Código Delphi [-]
...
protected
    procedure SumarCeldas(Message: TMessage); message WM_SELECTEDCELLCHANGED;
...
...

procedure TFormularioPadre.SumarCelda(Message: TMessage);
var
    I, B: Integer;
    selected_sum: Integer;
begin
    for I := to Screen.FormCount - 1 do
        if Screen.Forms[i].inheritsFrom(TAncestroVentanaHija) then
            with TAncestroVentanaHija(Screen.Forms[i]).Regilla do
                // sumar las celdas seleccionadas utilizando
                // la propiedad SelectedRows del grid.
end;

Saludos!
Espero que hallas entendido mi pseudo código y te ayude a resolver el problema.

[ecfisa]

Hola AzidRain.

Siempre que todos los StringGrids (que haya en cada MDIChild) tengan el mismo nombre, otra opción que se me ocurre es:

MDIForm

Código Delphi [-]
type
  TOPer = (opSuma, opResta);
  TMDIForm = class(TForm)
    ...
  private
    function OperarGrid(Oper: TOper): Double;
  end;

...

implementation   

function TMDIForm.OperarGrid(Oper: TOper): Double;
var
  i: Integer;
begin
  Result:= 0;
  for i:= MDIChildCount-1 downto 0  do
    with MDIChildren[i].FindComponent('StringGrid1') as TStringGrid do
      case Oper of
        opSuma : Result:= Result + StrToFloat(Cells[Col,Row]);
        opResta: Result:= Result - StrToFloat(Cells[Col,Row]);
      end;
end;
...

Si se tratara de DBGrids cambiando el cast funciona igualmente (con SelectedField). La cosa se complicaría un poco si también existen campos no numéricos...


Saludos.

[[AzidRain]]

Gracias a Chris y eficsa ya con sus ideas me aclaran lo que pensaban implementar, amabas me sirven. En cuanto implemento posteó como quedo al final. Sin duda a alguien le va a servir y le va a ahorrar tiempo ya que es bastante útil y evita estar haciendo reportes adicionales solo para saber una cifra.

[chartres]

imagino que usas delphi.

simplemente relaciona la Formas, osea menu File - Use unit y selecciona las unidades que ocupas que trabajen juntas, facil y rapido.

de ahi agregas ya sea variables o algun componente como un texedit en la forma padre para cada dato que
mandes

en las formas hijas que tengan el grid le pones en el evento que use x ejemplo

procedure Grid.oncellclic

//si agragaste componente edit
formapadre.texedit1.text:=grid.value;

//si es variable
formapadre.variable:=grid.value;

y asi puedes mandar y tomar datos de ambas formas.

el codigo no es tal como va, solo es para ilustrar