Discussion :

[Invité]

Bonjour

j'ai une une stringgrid et un headercontrol. Je sais synchroniser les colonnes de la stringgrid avec le headercontrol. Par contre, je ne sais pas synchroniser le headercontrol avec les déplacements de la scrollbar horizontale de la stringgrid.

Toutes les pistes sont bienvenues.

Cordialement

[delphichou]

Le problème est-il résolu ?
J'ai peut-être la solution.
Faites-le savoir.
@ plus

[OssamaBin]

Tu peux faire comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
type
  TForm1 = class(TForm)
    Header: THeaderControl;
    SG: TStringGrid;
 
.........
 
procedure TForm1.FormShow(Sender: TObject);
var
   i: integer;
   HS: THeaderSection;
begin
 
  for i := 0 to SG.ColCount-1 do begin
    HS := Header.Sections.Add;
    HS.Text := IntToStr(i);
    SG.Cells[i,0] := HS.Text;
    //    HS.AutoSize
  end;
end;
 
procedure TForm1.SGTopLeftChanged(Sender: TObject);
var
   i: integer;
begin
  for i := 1 to SG.ColCount-1 do begin
    if i < SG.LeftCol then Header.Sections[i].Width := 0
                      else SetHeaderWidth(i)
  end
end;