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

Вниз

Как получить объект из TListView   Найти похожие ветки 

 
polar   (2003-12-08 15:15) [0]

Подскажите, как получить объект из TListView: TStaffs = class(TObject)
public
FidstStaff: integer;
FStaffName: Ansistring;
public
constructor create();
destructor destroy;override;
end;...
tmpListItem.SubItems.AddObject("1", tmpStaffs); После этого мне нужно взять tmpStaffs. Спасибо.


 
Serg   (2003-12-08 15:41) [1]

ListView.Items[Index1].SubItems.Objects[Index2] ?


 
polar   (2003-12-08 15:49) [2]

Да нфига не получается. Вот код: type
TStaffs = class(TObject)
public
FidstStaff: integer;
FStaffName: Ansistring;
end; procedure TForm1.Button1Click(Sender: TObject);
var tmpListItem: TListItem;
NewColumn: TListColumn;
tmpStaffs: TStaffs;
begin
ListView1.Clear;
tmpStaffs:= TStaffs.Create;
try
with ListView1 do begin
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;

tmpStaffs.FidstStaff:= 55;
tmpStaffs.FStaffName:= "!!!";

tmpListItem := Items.Add;
tmpListItem.Caption := inttostr(12); //


 
Serg   (2003-12-08 16:02) [3]

попробуй так:
tmpStaffs:= TStaffs(tmpstr.Objects[4]);



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
7-62302
truntaev
2003-10-10 21:52
2003.12.19
как дать привелегии на перегрузку или отключение?


6-62184
Denis_Ac
2003-10-23 07:40
2003.12.19
Что такое?


1-62113
Krys
2003-12-08 14:11
2003.12.19
Обработка нажатий клавиш мыши


4-62323
Санек
2003-10-24 13:15
2003.12.19
Прозрачность компонента. Возможно ли это?


3-61901
Olga_Oo
2003-11-27 13:40
2003.12.19
Qreport