Cita:
Empezado por ecfisa
Hola.
En ese código no estoy evaluando que sólo esté abierto uno a la vez, eso sería taréa del form principal. Pero de todos modos funcionará bién, ya que desde el form 'caja' se contempla la posibilidad de que este creado compras, ventas o ambos.
Saludos.
|
Amigo me esta dando un error de tipos no es aplicable, exactamente aqui.
Código Delphi
[-]procedure TFcaja.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Assigned(Ffacturacompra) and Assigned(Fventas) then
CanClose := Ffacturacompra and Fventas.Enabled
else if Assigned(Ffacturacompra) and not Assigned(fventas) then
CanClose := Ffacturacompra.Enabled
else if not Assigned(Ffacturacompra) and not Assigned(fVentas) then
CanClose := Fventas.Enabled;
end;