[TStringGrid] OnColSizing ?

Version imprimable

02/12/2004, 10h14
ipikai

[TStringGrid] OnColSizing ?
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:

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
02/12/2004, 10h58
Invité

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.

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

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:

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;

Un peu long comme code mais c'est surtout pour l'exemple.
En éspérant que ca te va . :wink:

02/12/2004, 12h05
ipikai

Merci Jérôme !
Je vais jeter un oeil sur cette idée ! :)
02/12/2004, 12h07
ipikai

Merci ElNan ! C'est ce que j'étais en train de me résigner à faire ! :)