Tema: Bookmark
Ver Mensaje Individual
  #3  
Antiguo 12-06-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
No importa hacerlo en un MouseUp siempre y cuando se tomen las precauciones oportunas:
Código Delphi [-]
  if (gFacturas.SelectedRows.Count>0) then
   begin
    marca := qfactura.getbookmark;
    try 
       qFactura.DisableControls;
           // esto hace que los bucles se ejecuten más rápido
         // ya que no tiene que actualizar los controles

    for i:=0 to (gFacturas.SelectedRows.Count - 1) do
    begin
       qfactura.GotoBookmark(Pointer(gFacturas.SelectedRows.Items[i]));
       totF := totF + qfacturaIMPORTE.AsFloat;
       if qFactura.IsValidBookmark(marca) then // creo que se usa esto para averiguar si el bookmark es válido.
          qfactura.GotoBookmark(marca);
        //qfactura.freebookmark(marca); // estas seguro de que hay que liberarlo??, 
   // tendría que mirar la ayuda para saberlo, creo que no hace falta...no sé.
       totSelec.Text := floattostr(totF);
    end;
    finally
      qFactura.EnableControls
       //nos aseguramos activar los controles (por si ocurre una excepción)
    end;

  end;

Como ves sólo hago el disableControls si hay más de una fila seleccionada, de esta forma evitamos conectar y desconectar los controles si no hay nada seleccionado.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 13-06-2006 a las 09:47:57.
Responder Con Cita