Renseignement dans TlistBox avec Scroll Vetical [Résolu]

Signaler
Messages postés
11
Date d'inscription
lundi 26 janvier 2004
Statut
Membre
Dernière intervention
3 mars 2006
-
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
Salut à tous,
Comment savoir si le scroll vertical est activé dans le Tlisbox avant l'affichage de l'écran.
Si une personne peut me donner une solution.
Merci
Eric

4 réponses

Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

Ta version delphi doit vouloir une comparaison d'éléments de même type...

tsi.nPage est un cardinal (donc nul ou positif)
ListBox1.Items.Count est un integer (donc négatif nul ou positif)

essaie de modifier cette ligne ainsi :

if tsi.nPage<cardinal(ListBox1.Items.Count) then showmessage('il y a un Scroll') else showmessage('Il n''y pas de Scroll');

DrJerome
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

Salut,

j'avais vu le message, je pensais qu'on te répondrait rapidement, désolé donc comme je repasse dans le coin :

procedure TForm1.Button1Click(Sender: TObject);
var
tSI:tagScrollInfo;
begin
     FillChar(tSI, SizeOf(tSI), 0);
     with tSI do
     begin
          cbsize := SizeOf(tSI);
          fmask  := SIF_ALL;
     end;
     GetScrollInfo(ListBox1.handle,SB_VERT,tSI);
     if tsi.nPage<ListBox1.Items.Count then showmessage('il y a un Scroll') else showmessage('Il n''y pas de Scroll');
end;


N'oubliez pas de cliquer sur Réponse acceptée si c'est OK

bonne prog :)

DrJerome
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

remarque, si tu mets le code dans l'événement Oncreate, ça marche aussi avant l'affichage du form...

N'oubliez pas de cliquer sur Réponse acceptée si c'est OK

DrJerome
Messages postés
11
Date d'inscription
lundi 26 janvier 2004
Statut
Membre
Dernière intervention
3 mars 2006

Salut à tous,
J'ai bien saisie ton listing, le souci Delphi affiche une fenêtre de construction (Conbinaison de types signés et non signés - opérandes agrandis), quelques bétises ai je faite.
Si une personne a une solution.
Merci
Eric