Die TNTs selber hab ich ja nicht entwickelt ... nur die Umleitung.
Und aktuell wüße ich auch nicht, warum sowas NUR Anhand der kleinen Umleitung nicht gehn soll.
OK, ich war wegen des Virtuel List View erstmal irgendwie in Richtung Virtual TreeView geraten.
nja, dann werd ich mal versuchen rauszubekommen, was da nicht will
[edit]
also bei mir geht es und es werden die Indize angezeigt
(getestet in D2006 und D7)
Delphi-Quellcode:
Unit Unit1;
Interface
Uses SysUtils, Classes, Controls, Forms, ComCtrls,
TntHackSysUtils, TntHackClasses, TntHackControls, TntHackForms, TntHackComCtrls;
Type TForm1 =
Class(TForm)
ListView1: TListView;
procedure ListView1Data(Sender: TObject; Item: TListItem);
procedure FormCreate(Sender: TObject);
Private
Public
End;
Var Form1: TForm1;
Implementation
{$R *.dfm}
Procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
Begin
Item.Caption := IntToStr(Item.
Index);
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
ListView1.Items.Add.Caption := '
a';
ListView1.Items.Add.Caption := '
b';
ListView1.Items.Add.Caption := '
c';
ListView1.Items.Add.Caption := '
d';
//ListView1.OwnerData := True; im OI gesetzt
End;
End.