Ich weiss nicht, aber irgendwie will das nicht so funktionieren wie ich das gerne möchte.
Code:
repeat
delay(2000);
if Anfang < 0 then
begin
Anfang := Anfang +1;
Ende := Ende +1;
Button1.Click;
end;
until GetAsyncKeyState(VK_LBUTTON) = 0;
end;
So geht´s nicht. Wie gesagt möchte ich ein Scrollen realisieren. Der Anfangswert und der Endwert soll neu gesetzt werden und mit dem Buttonklick soll die ListBox neu gezeichnet werden.
Sorry, mir fällt im Moment nichts dazu ein, aber vielleicht kann mir ja jemand helfen.
Gruß Yheeky