Button für ListBox Hoch und Runter scrollen

[Junior]

Hallo Forum,

ich bin seit heute registriert und habe meine erste Frage.

Wie lautet der Befehlt im Quelltext für einen Button mit dem ich die Listbox hoch und runter bewegen kann (scrollen)?
D.h. ich habe jeweils ein Button fürs Hoch und ein Button fürs runterscrollen, wie gehe ich vor?

DANKE im Voraus

[theo]

Ich weiss nicht genau, was du bezwecken willst.

Jedenfalls kannst du so jeweils um einen Eintrag nach unten Scrollen:

Code: Alles auswählen

ListBox1.TopIndex:=ListBox1.TopIndex+1;      

[Junior]

es ist eine Aufgabe für die Schule.. Es soll bzw. muss ein Button sein mit dem ich scrolle

[theo]

es ist eine Aufgabe für die Schule.. Es soll bzw. muss ein Button sein mit dem ich scrolle

Ach so, du hast gar keinen Plan?

Dann fang doch mal hier an;
http://www.delphi-treff.de/tutorials/gr ... tutorials/
http://www.lazarusforum.de/viewtopic.php?f=21&t=79

[Junior]

habe minimal einen Plan, nur das mit dem Button der scrollen soll, da weiss ich nicht weiter und dachte hier könnte man mir schnell und zuverlässig helfen

[theo]

dachte hier könnte man mir schnell und zuverlässig helfen

Habe ich ja getan, indem ich dir die Einführungtutorials verlinkt habe.
Wenn du nicht weißt, wie man einen Button einsetzt, bist du dort richtig.

[Junior]

okay dank dir, könntest du mir auch vielleicht einen Quelltext schreiben für dieses Button-zeug?

[Mathias]

Im Designer ein Doppel-Klick auf den Button und schon hast du da Button-Klick Ereignis.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.TopIndex := ListBox1.TopIndex - 1;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.TopIndex:=ListBox1.TopIndex+1;
end;