Accueil > Manip’s > Delphi > Atelier Delphi pour les Nuls > Exercices > Robinson > Saisie la mesure de LCC par curseur
Saisie la mesure de LCC par curseur
mercredi 16 avril 2008, par
Un usage intéressant du Composant Trackbar (curseur) pour guider l’utilisateur et lui éviter de saisir une aberration
ONGLET WIN32
- Composant TrackBar (le petit curseur)
Je clique sur son icône et je dessine ma Barre sur le formulaire
’ai réglé les propriétés de cette façon :
Max | valeur maxi | 100 |
Min | valeur mini | 5 |
Position | valeur par défaut du curseur | 55 |
SelStart | début de la surbrillance | 42 |
SelEnd | fin de la surbrillance | 84 |
Il me faut maintenant relier le TrackBar au Composant Edit (de façon à ce que, quand je bouge le curseur, la valeur s’affiche)
Je double clique sur le TrackBar
- Et je relie les 2 champs avec la fonction de conversion (EntierVersTexte) que nous connaissons :
procedure TForm1.TrackBar1Change(Sender : TObject) ;
begin
form1.Edit_LCC.Text := IntToStr( form1.TrackBar1.position ) ;
end ;
C’est tout :’-)