OnMouseDown Ereignis

[Yheeky]

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