Restaurer la position de défilement horizontale dans TDBGrid

Question

J'ai écrit une méthode simple pour trier une colonne dans TDBGrid. Si Option.RowSelect est défini sur False, tout fonctionne correctement, mais si RowSelect est défini sur True, le défilement horizontal n'est pas restauré après la colonne de tri. donc j'essaie GetScrollPos et SetScrollPos pour restaurer la position de défilement horizontale, ScrollBar va à la bonne position, mais TDBGrid n'a pas défiler, voici la méthode:

procedure TDBGrid.TitleClick(Column: TColumn); 
var 
    CurrenctPosition: TBookmark; 
    PosScroll: Integer; 
begin 
    inherited TitleClick(Column); 
    if FAllowTitleClick and (Assigned(DataSource)) 
    and (Assigned(DataSource.DataSet)) 
    and (DataSource.DataSet.Active) 
    and (Assigned(Column.Field)) 
    and (Column.Field.FieldKind <> fkLookup) then 
    begin 
    //Get position scroll 
    PosScroll := GetScrollPos(Handle, SB_HORZ); 
    CurrenctPosition := DataSource.DataSet.GetBookmark; 
    FPaintInfo.ColPressed := False; 
    FPaintInfo.ColPressedIdx := -1; 
    if ValidCell(FCell) then 
     InvalidateCell(FCell.X, FCell.Y); 
    SortColumn(Column); 
    DataSource.DataSet.GotoBookmark(CurrenctPosition); 
    //Set position scroll 
    SetScrollPos(Handle, SB_HORZ, PosScroll, True);//<- need to be refreshed 
    end; 
end; 

Cela peut peut-être fixé à l'aide Perform (WM_HSCROLL, SB_LINERIGHT, 0) en boucle mais ce n'est pas une bonne idée. Quelqu'un at-il une meilleure solution?

Answer 1

est ici un moyen de contrôler ce qui est la colonne de gauche:

type 
    TGridFriend=class(TDBGrid); 


procedure TForm1.Button2Click(Sender: TObject); 
begin 
    // scroll to right by one column 
    TGridFriend(DBGrid1).leftCol:=TGridFriend(DBGrid1).leftCol + 1; 
end; 

Answer 2

Vous pourriez trouver une réponse ici:

http://www.species.net/Aves/Cassowary/delphi.htm

Recherchez "SetScrollPos" dans le texte.

Peut-être que ModifyScrollBar (Code, SB_THUMBPOSITION, Value) contient la solution.