procedure TfrmMgmt.lvSvrColumnClick(Sender: TObject; Column: TListColumn);begin if Column.Index=0 then //只有第一列排序 lvSvr.CustomSort(@CustomSortProc,Column.Index);end;
