Discussion :

[JP.NUAGE]

Bonjour à tous

Ce doit être tout bête, mais je plante !

Je voudrais tester si, dans un DBGrid, la barre verticale est visible ou pas. J'ai donc écrit

Code :

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

1
2
if DBGrid1.ScrollBars.ssVertical then 
ShowMessage('Vertical');

Passe pas ! J'ai essayé

Code :

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

1
2
if DBGrid1.ScrollBars = ssVertical then 
ShowMessage('Vertical');

Pas mieux ! Puis j'ai essayé :

Code :

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

1
2
if DBGrid1.ScrollBars = [ssVertical] then 
ShowMessage('Vertical');

toujours rien.

Y a-t-il une solution ?

Merci d'avance

[Nullosse]

hello,

tu peux faire comme ceci :

Code :

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

1
2
3
 
 if (GetWindowlong(DBGrid1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then
  ShowMessage('La scrollbar verticale est visible !');

La fonction GetWindowlong se trouve dans l'unité LCLIntf

Amicalement, Nullosse

[winow]

Bonjour

Code :

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

1
2
 if (GetWindowlong(DBGrid1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then
  ShowMessage('La scrollbar verticale est visible !');

ne marche pas chez moi sous Ubuntu, visible ou pas visible,
la réponse est toujours a visible alors que je passe scrollbar a none.

Du coup j'ai fait ce code a améliorer, celui la fonctionne sous Ubuntu.
( uses lclintf, lcltype; )

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
 
procedure TForm1.Button1Click(Sender: TObject);
 
  var i,j: integer;
        k: integer;
        visnovis: integer;
begin
 
    i := DBGrid1.ClientWidth;
    j := GetSystemMetrics(SM_CXVSCROLL);
    k := i - j;
    visnovis := k + j;
 
  if inttostr(visnovis) < inttostr(DBGrid1.Width-2) then
   begin
     showmessage('visible');
   end;
 
end;

et pour scrollbar non visible:

Code :

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

1
2
3
remplacer : if inttostr(visnovis) < inttostr(DBGrid1.Width-2) then
par : if inttostr(visnovis) = inttostr(DBGrid1.Width-2) then

[winow]

sinon, simplement ca :

Code :

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

1
2
3
4
5
 
  if inttostr(DBGrid1.ClientWidth) = inttostr(DBGrid1.Width-2) then
   begin
     showmessage('pas visible');
   end;