Einzelnen Beitrag anzeigen

Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.479 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: ScrollBar Position in FireMonkey

  Alt 15. Apr 2015, 18:12
das problem ist, dass ich extremst aufm schlauch steh und keine ahnung grad hab... ich hab eingegrezt min auf 1 und max auf 10....steht der schieberegler jetzt in der mitte, dann muss doch für scrollbar1.position.x

5 rauskommen...steht aber immer nur 32 drin....

und die zahl die rauskommt soll ein Index in nem Array sein...alsoo sag ich ihm doch NameDesArrays[scrollbar1.position.x];
Du musst bei der Scrollbar die Eigenschaft "Smallchange" auf "1" setzen, dann ergibt sich bei einer Positionsänderung der Scrollbar eine Änderung des "Values" um den Wert von 1. Damit kannst Du dann ganz einfach auf Dein Array zugreifen.

In dem OnChange-Event der Scrollbar funktioniert das dann z.B. so:
Delphi-Quellcode:
procedure TForm10.ScrollBar1Change(Sender: TObject);
var
  ar: array [1..10] of string;
  L: Integer;
begin
  for L := 1 to 10 do ar[L] := 'Wert: ' + L.ToString;

  Label1.Text := ar [Round (Scrollbar1.Value)];
end;
  Mit Zitat antworten Zitat