Este es el codigo del evento DbClick
Código PHP:
if lpedido then lpedido:=false
else lpedido:=true;
if lpedido then
begin
self.ListaDetalle.Height := 0;
self.ListaOrden.Align := alTop;
self.ListaOrden.Height := 0;
self.ListaPedido.Height := self.Height - self.PedidoPanel.Height -
self.DetallePedidoPanel.Height - self.OrdenPanel.Height -
self.ListaOrden.Height - self.ListaDetalle.Height - 45;
end
else begin
self.ListaPedido.Height := (self.ListaPedido.DefaultRowHeight * 4) + 7 ;
self.ListaPedido.SetFocus;
MiRow := ListaPedido.Row;
self.ListaPedido.Row := 2;
self.ListaPedido.Row := MiRow;
self.ListaPedido.SetFocus;
//self.PintarDetalle;
end;
despues lpedido=false se ejecuta este codigo y cierro el formulario me sale ese error.