Test de ScrollBars dans un DBGrid

:salut: Bonjour à tous

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

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

Code:

---

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

---

Passe pas ! J'ai essayé

Code:

---

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

---

Pas mieux ! Puis j'ai essayé :

Code:

---

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

---

toujours rien.

Y a-t-il une solution ?

Merci d'avance

hello,

tu peux faire comme ceci :

Code:

---

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

Bonjour

Code:

---

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:

---

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:

---

1 2 3

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

---

sinon, simplement ca :

Code:

---

1 2 3 4 5

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

---