[TStringGrid] OnColSizing ?

**ipikai** · 02/12/2004, 10h14

Bonjour,
j'aurais besoin d'exécuter une méthode après le redimensionnement d'une colonne dans une TStringGrid. Or, la TStringGrid ne possède pas ce genre d'événement.
La seule chose que j'ai pu trouver dans le code grids.pas est ceci:

Code :

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

1
2
3
4
5
6
type TGridState = (gsNormal, gsSelecting, gsRowSizing, gsColSizing, gsRowMoving, gsColMoving );
[...]
  TCustomGrid = class(TCustomControl)
[...]
  protected
    FGridState: TGridState;

Cette propriété protégée est entre autre utilisée pour savoir quel curseur afficher lorsque l'on redimensionne une colonne.
Voyez-vous une autre solution pour moi que de créer une classe TMaGrid qui hérite de TStringGrid et qui ajoute une fonction TMaGrid.GetGridState : TGridState; ?

Merci

Invité · 02/12/2004, 10h58

J'ai déjà eu à utiliser le redimensionnement des colonnes d'un TStringGrid.

J'ai utilisé la méthode OnMouseDown où je charge dans un tableau les largeurs de colonnes et OnMouseUp où je compare mes largeurs actuelles avec celles ci.

Par contre, j'ai pas d'exemple de code, c'était dans mon ancienne entreprise.

**ElNan** · 02/12/2004, 11h58

Oui je vois une autre solution. Elle consiste bien à créer ta propre classe de TStringGrid mais tu peux y adjoindre une gestion d'événement pour détecter qu'une colonne a été redimensionnée :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
type TMyStringGrid = class(TStringGrid)
  private
    FOnColWidthsChanged : TNotifyEvent;
  protected
    procedure DoColWidthsChanged;
    procedure ColWidthsChanged; override;
  published
    property OnColWidthsChanged : TNotifyEvent read FOnColWidthsChanged write FOnColWidthsChanged;
end;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    MyStringGrid : TMyStringGrid;
    procedure MyStringGridOnColWidthsChanged(sender : TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TMyStringGrid }
 
procedure TMyStringGrid.ColWidthsChanged;
begin
  inherited;
  DoColWidthsChanged;
end;
 
procedure TMyStringGrid.DoColWidthsChanged;
begin
  if Assigned(FOnColWidthsChanged) then FOnColWidthsChanged(Self);
end;
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyStringGrid := TMyStringGrid.Create(Self);
  MyStringGrid.parent := Self;
  MyStringGrid.Options := MyStringGrid.Options + [goColSizing];	 
  MyStringGrid.OnColWidthsChanged := MyStringGridOnColWidthsChanged
end;
 
procedure TForm1.MyStringGridOnColWidthsChanged(sender: TObject);
begin
  showmessage('Une colonne a bougé.');
end;