delphi - ListView scrollbar problem - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #4417 @ 11.01.08 18:27

Hej udviklere,

Jeg har en form med en listview og en button.

Jeg har skrevet følgende kode for at "bladre" gennem mine items:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (ListView1.Items.Count > 0) and (ListView1.ItemIndex + 1 < ListView1.Items.Count) then
begin
ListView1.ItemIndex := ListView1.ItemIndex + 1;
ListView1.ItemFocused := ListView1.Items[ListView1.ItemIndex];
end;
ListView1.SetFocus;
end;

Det virker fint, men når der er en vertical scrollbar på min listview, scroller den ikke automatisk ned.

Jeg ville gerne have at scrollbaren følger med ned så man kan se det item som er selected. (Ligesom når man bruger piletasterne)

Håber spørgsmålet er forståeligt.

På forhånd tak for hjælpen
Mvh
Anders

3 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma

Sorter efter stemmer Sorter efter dato

Bruger #6080 @ 11.01.08 23:37

150

Hej Anders,

Dette er helt sikkert ikke en optimal måde at gøre det på, men den burde virke, så hvis du ikke får andre svar kan du jo altid lege lidt med det.

Husk at tilføj variablerne a og b (begge som integer), da de skal deklareres udenfor selve funktionen, eller i hvert fald b.

Kode

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (ListView1.Items.Count > 0) and (ListView1.ItemIndex + 1 < ListView1.Items.Count) then
  begin
   ListView1.ItemIndex := ListView1.ItemIndex + 1;
   ListView1.ItemFocused := ListView1.Items[ListView1.ItemIndex];
   a := ListView1.ItemIndex div 2; // Erstat 2'tallet med antallet af items vandret
   if a <> b then // Her tjekker vi om den er nået til en ny række
    ListView1.Scroll(00,40); // Hvis det er en ny række, ruller vi lidt ned
   b:=a; //Sætter b til a, for at kunne tjekke om det er en ny række, hvis der bliver trykket igen
  end;
 ListView1.SetFocus;
end;

Har lavet kommentare, men spørg bare hvis du er i tvivl.

M.v.h. Johnny Rasmussen.

Indlæg senest redigeret d. 11.01.2008 23:38 af Bruger #6080

Bruger #4417 @ 11.01.08 18:29

Hov kom lige til at poste

Indlæg senest redigeret d. 11.01.2008 18:30 af Bruger #4417

Bruger #4417 @ 12.01.08 00:55

Tak for svar Johnny.

Men jeg fandt selv ud af det. Man kan bruge MakeVisible til at få ListView'en til at scrolle ned til det selectede item.

Det virker faktisk ligesom i en ListBox(Den gør det bare automatisk)

Her er den færdige kode hvis andre skulle have brug for at lave noget lignende

Kode

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (ListView1.Items.Count > 0) and (ListView1.ItemIndex + 1 < ListView1.Items.Count) then
  begin
   ListView1.ItemIndex := ListView1.ItemIndex + 1;
   ListView1.ItemFocused := ListView1.Items[ListView1.ItemIndex];
//Nedenstående kodelinje løste problemet
ListView1.Items[ListView1.ItemIndex].MakeVisible(True);
  end;
 ListView1.SetFocus;
end;

Du får alligevel 10 point fordi du gad bruge tid på mit spørgsmål

Mvh
Anders

Indlæg senest redigeret d. 12.01.2008 00:58 af Bruger #4417

ListView scrollbar problem

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler