Forcer l'affichage de la ScroolBar verticale du StringGrid

Version imprimable

14/08/2006, 15h06
ero-sennin

Forcer l'affichage de la ScroolBar verticale du StringGrid

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

Salut !

Essaye ceci:

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
 
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.
@+

14/08/2006, 18h06
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 ;)
14/08/2006, 18h13
Cl@udius
Re,
Code:

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:

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é.

@+
14/08/2006, 18h19
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 8O !
Je vais chercher un peu ailleurs :aie:

EDIT 2 :

Si je cherche pas le bon terme, je risque pas de trouver :mrgreen:
Je décortique ce que je viens de trouver ;)
14/08/2006, 18h29
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:

Citation:

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.

@+
14/08/2006, 18h31
ero-sennin

Merci, je viens de tombé aussi dessus ;)