Hilfe bei ScrollBar

[malibu85]

Hallo, ich finde dummerweise die eigenschaft der ScrollBox nicht, welche den wert angibt, auf dem sich der Schieberegler befindet. Habe es mal mit position probiert aber wenn ich den Schieberegeler bewege bleibt der Wert auf der Anfangsposition.

[lbccaleb]

Zitat:

Zitat von malibu85

Hallo, ich finde dummerweise die eigenschaft der ScrollBox nicht, welche den wert angibt, auf dem sich der Schieberegler befindet. Habe es mal mit position probiert aber wenn ich den Schieberegeler bewege bleibt der Wert auf der Anfangsposition.

also was genau willst du denn jetzt?? für die scrollbar kannst du den status mit scrollbar.position abrufen, und mit der scrollbox musst du die einzelnen scrollbars ansprechen, das geht, wenn mich jetzt nicht mehr alles täuscht so:

Delphi-Quellcode:

scrollbox1.HorzScrollBar.ScrollPos;
scrollbox1.VertScrollBar.ScrollPos;

[malibu85]

ich wollte über eine scrollbar einen wert einlesen und wenn ich den regler verschiebe, dann sollte eine Lable-Komponente die aktuelle Position ausgeben, damit der anwender auch weiß welchen wert er eingegeben hat. Wenn ich aber Label1.caption:=StrToInt(ScrollBar1.position) schreibe, dann zeigt das Lable nur den anfangswert von z.B 0 und verändert sich nicht wenn ich den regler verschiebe!

[lbccaleb]

schau mal ob du ein "onchange" ereignis eingegeben hast, dann sollte es eigentlich so klappen, also mit

Delphi-Quellcode:

label1.caption := inttostr(scrollbar1.position);

also denk mal bei dir ist im mom das onchange ereignis das problem

[Sharky]

Hai malibu85,

das funktioniert bei mir ohne Probleme:

Delphi-Quellcode:

procedure TDemo_Form.ScrollBar1Change(Sender: TObject);
begin
  Label1.Caption := IntToStr((Sender as TScrollBar).Position);
end;

[edit]Da hat sich doch tatsächlich Martin dazwischen gemogelt ;-)

[malibu85]

danke für die Hilfe. Habe die Ereignissroutine onchange nicht angegeben sondern einfach in einer Procedure gesteckt