Quote CommCtrl unit
Procedure TFORM1.BUTTON1CLICK (Sender: TOBJECT);
Begin
Listview_deletecolumn (myListView.handle, i); // i is the serial number of the column to be deleted, starting from 0
END;
Display information table with LISTVIEW: procedure viewchange (listv: tlistview; table: tcustomadodataset; var i: integer); begin tlistview (listv) .Items.BeginUpdate; {listv: listview name} try tlistview (listv) .Items.Clear WITH TABLE DO {Table or Query Name} begin active: = true; first; while not eof do beg, limited; = tlist; list;, list; ); // listitem.imageindex: = 8; Next; end; end; finally tlistview (listv) .Ind; end;
