[Lazarus-es] posicionar fila en grid en determinado registro

[Maxi]

2010/4/26 Paola Bruccoleri <pbruccoleri en adinet.com.uy>:
> José Antonio Cuello escribió:
>>
>> hola te envio el procedimiento que uso para refrescar los datos de un
>> grid, espero te sirva. Un saludo.
>>
>> P.D: DBGrid1 = nombre de tu grid ( esto es por si refresca el Dataset
>> del grid )
>>
>> procedure TMantForm.RefreshQry( Sender: TDataSet );
>> Var
>>  vBookMark: String;
>>  vActGrid : Boolean;
>> begin
>>  if Sender.Active then
>>    vBookMark := Sender.Bookmark
>>  else
>>    vBookMark := '';
>>
>>  vActGrid := (Sender = DBGrid1.DataSource.DataSet);
>>  try
>>    if vActGrid then DBGrid1.BeginUpdate;
>>    Sender.Close;
>>    Sender.Open;
>>  finally
>>    if vActGrid then DBGrid1.EndUpdate(true);
>>  end;
>>
>>  if vBookMark <> '' then
>>    try
>>      Sender.Bookmark := vBookMark;
>>    except
>>    end;
>> end;
>>
>>
>>
>
> Hola José..
> no me está funcionando, pero quizás sea que algo estoy haciendo mal..
>
> Puse ese procedimiento en el form, y lo uso de esta manera:
>
>    f:= TfrmAgregar.Create(Self);
>    try
>     if (f.ShowModal = mrOK) Then
>      Begin
>         RefreshQry(qryM);
>      end
>
>    finally
>      FreeAndNil(f);
>    end;
>
> pero no me deja el grid en la fila seleccionada, sino en la primera fila...
> chauuuuuuuuuu
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>


y donde haces la llamada al bookmark? o el locate del registro?

-- 
Maximiliano Duarte
Linux User #495070
Ubuntu User #28504

Tolerancia significa disculpar los defectos de los demás; tacto, no
reparar en ellos.