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;
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 qfactura.GotoBookmark(marca);
totSelec.Text := floattostr(totF);
end;
finally
qFactura.EnableControls
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.
|