Discussion :

[ZeImp]

Hello,

le problème qui se pose réside dans le fait qu'il est assez simple de poser une marque (Tick) sur une TTrackBar en mode tsManual à l'aide de la commande SetTick( Value ) mais que d'après mes recherches il n'existe pas de commande pour effacer une telle marque !

Je souhaiterais donc savoir si quelqu'un a une méthode simple pour effacer une marque voir pour effacer TOUTES les marques d'une TTrackBar.

Voila,

@+
ZeImp

[Stéphane Vaillant]

Salut,

Pour effacer un seul Tick, je n'ai pas encore trouvé d'astuce...

Par contre, pour effacer tout, il te suffit de modifier la propriété TickStyle de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.btnEffacerToutClick(Sender: TObject);
begin
  TrackBar1.TickStyle := tsNone;
  TrackBar1.TickStyle := tsManual;
end;

[ZeImp]

Merci, cela fonctionne en effet ;-)

Je ne comprends cependant pas pourquoi je ne parviens pas à faire fonctionner la commande suivante !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SendMessage(TrackBar1.Handle, TBM_CLEARTICS , 1, 0) ;

J'ai cependant une solution alternative donc ce n'est pas grave ;-)

@+
ZeImp