Création d'un ScrollBarRésolu

Question

Bonjour tout le monde,

Je suis entrain de developpez un logiciel qui fonctionnera sur des écrans tactil et mon souci viens des scrollbars rattachés a mon composant TListView qui sont trop petit et pas pratique a utiliser (surtout si on a des gros doigt).

Ma solution est de faire 2 boutons permettant de me deplacer vers le bas ou le haut.

Je suis donc à la recherche d'un exemple qui montre le code de fonctionnement d'un ScrollBar ou qui pourrait me guider.


Merci d'avance

Cirec · Accepted Answer

Salut,

essaye plutôt comme ça:

ListBox1.Perform(WM_VScroll, SB_LINEUP, 0);

ListBox1.Perform(WM_VScroll, SB_LINEDOWN, 0);

les autres commandes sont:
  { Scroll Bar Commands }
  {$EXTERNALSYM SB_LINEUP}
  SB_LINEUP = 0;
  {$EXTERNALSYM SB_LINELEFT}
  SB_LINELEFT = 0;
  {$EXTERNALSYM SB_LINEDOWN}
  SB_LINEDOWN = 1;
  {$EXTERNALSYM SB_LINERIGHT}
  SB_LINERIGHT = 1;
  {$EXTERNALSYM SB_PAGEUP}
  SB_PAGEUP = 2;
  {$EXTERNALSYM SB_PAGELEFT}
  SB_PAGELEFT = 2;
  {$EXTERNALSYM SB_PAGEDOWN}
  SB_PAGEDOWN = 3;
  {$EXTERNALSYM SB_PAGERIGHT}
  SB_PAGERIGHT = 3;
  {$EXTERNALSYM SB_THUMBPOSITION}
  SB_THUMBPOSITION = 4;
  {$EXTERNALSYM SB_THUMBTRACK}
  SB_THUMBTRACK = 5;
  {$EXTERNALSYM SB_TOP}
  SB_TOP = 6;
  {$EXTERNALSYM SB_LEFT}
  SB_LEFT = 6;
  {$EXTERNALSYM SB_BOTTOM}
  SB_BOTTOM = 7;
  {$EXTERNALSYM SB_RIGHT}
  SB_RIGHT = 7;
  {$EXTERNALSYM SB_ENDSCROLL}
  SB_ENDSCROLL = 8;


[hr]@+Cirec
[hr]

johspi · Answer

J'ai trouver une bidouille pour le faire 

procedure TMain.SpeedButton1Click(Sender: TObject);
begin
  LVInfo.SetFocus;                
  keybd_event(VK_PRIOR  ,0,1,0);  //Bouton Pg.Préc
end;

procedure TMain.SpeedButton2Click(Sender: TObject);
begin
  LVInfo.SetFocus;
 keybd_event(VK_NEXT ,0,1,0);  //Bouton Pg.Suiv
end;

Si quelqu'un connait une autre solution, je suis preneur car d'utiliser la simulation de touche ne me ravi pas plus que sa

johspi · Answer

Sa marche niquel !!!!!! 

Merci beaucoup sa sera beaucoup mieu que ma bidouille

 cirec

Création d'un ScrollBar

3 réponses

Votre réponse

Discussions similaires