Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.13;
Скачать: CL | DM;

Вниз

Как достать объект из ListItem   Найти похожие ветки 

 
ShimON ©   (2005-01-29 22:38) [0]

Мастера! Вот какой вопрос. Записать то я его записал:

ListView.AddItem(IntToStr(index), Pointer(S));
ListView.Items[index-1].SubItems.Add(S^.Name);

А вот как его теперь оттуда достать???


 
ShimON ©   (2005-01-29 22:57) [1]

Если кому интересно, проблема решена так:

//Процедура добавления объекта
Procedure AddObject(List: TListView; S: PRegMusicInfo; index: integer);
var
 Item: TListItem;

begin
 Item:= List.Items.Add;
 Item.Caption:= IntToStr(index);
 Item.SubItems.AddObject(S^.Name, Pointer(S));
 Item.ImageIndex:= -1;
 Item.StateIndex:= 4;
end;

//А так я забираю оттуда объект
procedure TfmML.MusicMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
 Item: TListItem;
 Music: PRegMusicInfo;

begin
 Item:= lvMusic.GetItemAt(X, Y);
 if (X < 20) then
   begin
     //ShowMessage("Clic Play" + Item.Caption + "!!!");
     Music:= PRegMusicInfo(Item.SubItems.Objects[0]);
     ShowMessage(Music^.Path);
     exit;
   end;
end;


 
Palladin ©   (2005-01-30 10:31) [2]

Если кому то интересно он нажмет F1 и все поймет сам...



Страницы: 1 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.056 c
4-1103908912
ThunderRT6FormDC
2004-12-24 20:21
2005.02.13
Подскажите как на чужом окне отличить 2-е панели друг от друга..


14-1106419109
Alex_pv2
2005-01-22 21:38
2005.02.13
Как сделать неактивным Items в TListBox


1-1107250197
markers
2005-02-01 12:29
2005.02.13
Ini Files права доступа;)


1-1107029656
k@rt
2005-01-29 23:14
2005.02.13
TTreeView - сохранение в файл


14-1106322802
wl
2005-01-21 18:53
2005.02.13
какой бы сотовый телефон прикупить...