Bonjour
j'ai un TEdit dans lequel je peux rentrer des valeurs comprises entre 1 et 100 et qui fait varier un TScrollBar de 1 à 100 ou inversement en modifiant le TScrollbar

voici un bout de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Edit5Change(Sender: TObject);
var cr:integer;
r:real;
 
begin
  val(edit5.text,r,cr);
  if cr=0 then
  begin
    ScrollBar5.Position:=round(r);
  end;
end; 
 
procedure TForm1.ScrollBar5Change(Sender: TObject);
begin
  edit5.text:=FormatFloat('#####0.##',scrollbar5.Position);
end;
mais ce que je souhaiterais, ce serait de pouvoir faire varier les valeurs par "pas" de 0.1 (par exemple) soit dans le TEdit soit dans le ScrollBar, mais comme TScrollBar.position n'admet que des entiers, je ne vois pas trop...

Merci de vos conseils

Cordialement