variables entre forms

[fedelphi]

Que grande roman, funciono perfectamente, muchisimas gracias por la ayuda

Le hice esto en el onclick

Código Delphi [-]
procedure TFAvierteBorraCirculante.BSiClick(Sender: TObject);
begin
  BSi.Tag:=1;
  Close;
end;

y asi en el onclosequery

Código Delphi [-]
procedure TFAvierteBorraCirculante.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if Bsi.tag=1then
  begin
    if ECantidad.Text<>''then
    begin
      CanClose:=True;
      ModalResult:=mrOK;
      FCantidad := StrToInt(ECantidad.Text);
    end
    else
    begin
      showmessage('Ingrese la cantidad de envases');
      CanClose:=False;
    end;
  end;

end;

y creo que asi queda completo
Fede

[roman]

Eso del BSi.tag está un poco feito

Lo normal es que a tu botón Aceptar le pongas su propiedad ModalResult en mrOk, para que automáticamente, al momento de oprimir el botón, se asigne mrOk al formulario. Y éso es lo que usas en CloseQuery para determinar si se oprimió Aceptar:

Código Delphi [-]
procedure TFAvierteBorraCirculante.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  //if Bsi.tag=1then
  if MOdalResult = mrOk then
  begin
    if ECantidad.Text<>''then
    begin
      CanClose:=True;
      //ModalResult:=mrOK;
      FCantidad := StrToInt(ECantidad.Text);
    end
    else
    begin
      showmessage('Ingrese la cantidad de envases');
      CanClose:=False;
    end;
  end;
end;

y ya no usas el evento OnClick del botón.

// Saludos

[fedelphi]

OK, gracias de nuevo.
Fede