listview 和dbgird 要具有排序的功能 单击标题可按数字 字母 日期 升/降
listview 和dbgird 当被选定数据 焦点被移动按钮上作动作时 要显示当前选择的数据是哪行！！
void __fastcall tfrmgather760::lvdatacustomdrawitem(tcustomlistview *sender, tlistitem *item, tcustomdrawstate state,bool &defaultdraw) //这段代码 会在选定行下画黄底
{
if(sender->selected !=null)
if(item->index == sender->selected->index)
{
sender->canvas->brush->color = clyellow;
sender->canvas->font->color = clblue;
}
}
对一般超过2秒的操作要在函数中
tcursor oldcursor;
oldcursor = screen->cursor;
screen->cursor = crsqlwait;
try{ 。。。。。。} __finally{screen->cursor = oldcursor;}
procedure tform1.formkeydown(sender: tobject; var key: word;shift: tshiftstate);
begin
if (shift = []) and (key = vk_return) then //以回车键代替tab键
perform(wm_nextdlgctl, 0, 0);
