Problem bei Automatischem Scrollen mit Listbox

[a.vollmer]

Hi,


ich scrolle meine Listbox mit folgendem Code in nem Timer automatisch:

Delphi-Quellcode:

if ListBox1.TopIndex = ListBox1.Items.Count-1 then
begin
ListBox1.TopIndex := 0;
end
else
begin
ListBox1.TopIndex := ListBox1.TopIndex + 1;
end;

Jetzt hab ich 2 Probleme!

1. Vom ersten Item aufs zweite scrollt die Listbox mit sanften Übergängen, danach nicht mehr..Abgehakt...Kann man das irgendwie ändern?

2. Gibt es ne Möglichkeit die Scrollbars der Listbox auszuschalten?

Gruß

Alex

[Pr0g]

Zu 2: Das geht mit Hilfe der WinAPI:

Delphi-Quellcode:

ShowScrollBar(ListBox1.Handle, SB_VERT, False);

Statt SB_VERT kannst du für die horizontale Scrollleiste auch SB_HORZ einsetzten. Mit True, bzw. False kannst du angeben, ob die Leiste ein- oder ausgeblendet werden soll.

MfG Pr0g