модернизированный плейлист.

[adr]

начало темы


я передумал использовать листбокс. и решил сделать это так:
при занесении песни в список динамически создаются следующие компоненты:
1. groupbox.
в нем:
1. image
2. label(song name)
3. label(album name)
4. label(artist name)
5. label(song duration)


возникают следующие вопросы:
как их поместить в групбокс?
как им всем присвоить имена?
как этот групбокс поместить в еще один?
как реализовать у него прокрутку?




заранее спасибо.

[Пепел Феникса]

используйте ListView.

[adr]

с listview я так и не смог разобраться

[mihali4]

procedure TForm1.Button1Click(Sender: TObject);
var gb: TGroupBox;
    lb: TLabel;
begin
gb:=TGroupBox.Create(Self);
gb.Name:='MyGB';
gb.Parent:=Form1;
lb:=TLabel.Create(Self);
lb.Name:='MyLB';
lb.Parent:=gb;
lb.Top:=30;
lb.Left:=30;
end;

GroupBox в GroupBox - аналогично...

[adr]

о, спасибо буду пробовать.

18:38

а как реализовать прокрутку в первом групбоксе?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
А пока штраф за флуд.
Модератор

[mihali4]

Сообщение от adr

а как реализовать прокрутку в первом групбоксе?

Поместить в него ScrollBox.

[adr]

я как-то эксперементировал с этим, вот только у меня прокрутка не получалась нормальная

procedure TMainForm.ScrollBar1Change(Sender: TObject);
var
a: integer;
begin
a:=scrollbar1.Position;
if a<=a+1 then
groupbox2.ScrollBy(0,-25)
else
if a>a-1 then
groupbox2.ScrollBy(0,25);
end;

[inndim]

Не надо изобретать велосипед с приделанными к нему костылями, сейчас открою вам секрет как сделать по человечески.
1. Создаём запись примерно такого вида:

Type
  TPList = Record
    FileName: string;
    Time: string;
    Path: string;
  end;

2. Далее объявляем динамический массив типа TPList

SongList: array of TPList;

3. Заполняем все поля SongList при добавлении файла.
4. Далее используем например тот же listbox и используем замечательный метод AddObject, и используем указатель на номер строки в массиве.

 ListBox1.Items.AddObject(SongList[LenList-1].FileName, pointer(LenList-1));

Вобщем примерный вектор я вам показал, весь код писать за вас не буду, ибо всё что нужно уже написал, а в остальном вам же интересней будет разобраться, но если совсем уж припрёт, пишите в личку дам готовый пример.

[ZuBy]

adr, или воспользуйся вот этим

[hellboyx]

http://www.programmersforum.ru/showthread.php?t=102360