1.添加引用:DBClient 2.置DBGridEh控件属性: 设置dghAutoSortMarking属性为true 设置希望排序的Column的TitleButton属性为true 3.//表格排序过程 procedure OrderGrid(dataSet:TClientDataset;orderField:string); var i:integer; begin if dataSet.IndexFieldNames'' then begin i:=TClientDataSet(Da...[ 查看全文 ]
注意:要设置form的controlbox属性为false, 特别注意: form.text要设置为空,否则不会把标题栏去掉 Dim MousX As Integer Dim MousY As Integer Dim CurrX As Integer Dim CurrY As Integer Public Sub myMouseDown(ByVal sender As Object, ByVal ex [ 查看全文 ]