Discussion :

[ero-sennin]

Bonjour,

Voilà, pour une question d'esthétique, je voudrai que mon StringGrid affiche la Scroolbar verticale .
En effet, lorsque le StringGrid contient un nombre trop grand de lignes, la scroolbar apparait, mais dans mon programme, les lignes se créent au fur et à mesure donc j'aimerai forcer l'affichage de cette ScroolBar.

J'espère que vous pourrai m'aider
Merci

[Cl@udius]

Salut !

Essaye ceci:

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
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    FOldWindowProc: TWndMethod;
    procedure StringGridWindowProc(var Message: TMessage);
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldWindowProc := StringGrid1.WindowProc;
  StringGrid1.WindowProc := StringGridWindowProc;
end;
 
procedure TForm1.StringGridWindowProc(var Message: TMessage);
begin
  ShowScrollBar(StringGrid1.Handle, SB_VERT, True);
  FOldWindowProc(Message);
end;
 
end.

Je ne l'ai pas testé avec des données dans le StringGrid...Donc tiens nous au courant.
@+

[ero-sennin]

Merci Claudius40!

Ca fonctionne parfaitement!
Comme la programmation c'est comprendre ce que l'on fait aussi, tu n'aurais pas une petite explication à me fournir sur le code que tu m'as donné?

Merci pour ton aide

[Cl@udius]

Re,

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldWindowProc := StringGrid1.WindowProc;
  StringGrid1.WindowProc := StringGridWindowProc;
end;

Ceci permet d'intercepter les messages Windows qui arrive au StringGrid. Les messages sont traités par ta procedure StringGridWindowProc. Tu conserves avec FOldWindowProc la procédure initiale.

Code :

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

1
2
3
4
5
6
 
procedure TForm1.StringGridWindowProc(var Message: TMessage);
begin
  ShowScrollBar(StringGrid1.Handle, SB_VERT, True);
  FOldWindowProc(Message);
end;

Ici la fonction de l'API ShowScrollBar force l'affichage du scrollbar vertical.
Ensuite tu n'oublies pas d'appeler la procédure initiale pour que le StringGrid traite le message envoyé.

@+

[ero-sennin]

Ok!

Merci bien. J'ai cerné l'essentiel je pense! Un petit tour dans l'aide de Delphi pour FOldWindowProc car c'est ce truc là qui j'arrive pas trop à cerner.

@+

EDIT :

J'ai rien trouvé dans l'aide !
Je vais chercher un peu ailleurs

EDIT 2 :

Si je cherche pas le bon terme, je risque pas de trouver
Je décortique ce que je viens de trouver

[Cl@udius]

ReRe,

Tous les composants héritant de TControl possède cette méthode WndProc de type TWndMethod. Elle a pour but de répondre aux messages Windows.

Extrait de l'aide de Delphi 7 sur TWndMethod:

Description

Chaque fenêtre a une procédure de message répondant aux appels de Windows.Ces appels peuvent provenir de Windows (comme des messages de dessin),d'actions utilisateur (comme des messages souris)ou de vos messages émis dans votre propre code.

TWndMethod est le type des procédures de message basées sur la VCL.Les procédures de message de ce type peuvent être affectées àdes contrôles en utilisant la méthode WindowProc.De plus,une fenêtre implémentant cette procédure mais qui n'est pas associée au contrôle peut être créée en utilisant la fonction AllocateHWnd.

Le paramètre Message encapsule le message auquel répond la procédure.Il contient les champs pour les paramètres de message entrant et un champ résultat qui contient la valeur renvoyée.

@+

[ero-sennin]

Merci, je viens de tombé aussi dessus