Renseignement dans TlistBox avec Scroll VeticalRésolu

Question

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

DRJEROME · Accepted Answer

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

DRJEROME · Answer

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

DRJEROME · Answer

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

skorpios27 · Answer

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

Renseignement dans TlistBox avec Scroll Vetical

4 réponses

Votre réponse

Discussions similaires