Label-Caption scrollen

[MrSpock]

Hallo Yeeky,

ScrollBar einfügen und auf vertical stellen. Min=0, Max=79 (im Beispiel von oben):

ScollBar - onChange:

Code:

    newCap := '';
    for i := ScrollBar1.Position to ScrollBar1.Position+20 do
       newCap := newCap + MyList.Strings[i];
    Label2.Caption := newCap;
    Application.ProcessMessages;