if key = vk_next then //按pageup pagedown使tpagecontrol切换页面
begin
if pagecontrol.activepageindex = pagecontrol.pagecount - 1 then
pagecontrol.activepageindex := 0
else
pagecontrol.activepageindex := pagecontrol.activepageindex + 1;
end
else if key = vk_prior then
begin
if pagecontrol.activepageindex = 0 then
pagecontrol.activepageindex := pagecontrol.pagecount - 1
else
pagecontrol.activepageindex := pagecontrol.activepageindex - 1;
end;
end;
end.
6 按钮互徹
当每完成一个操作动作时 有些按钮要变成无效状态，在什么情况下又恢复有效。虽然只有一段话，如果不设置无效的话会经常带来各种致命错误！因为你是无法预测用户将会如何去操作你的软件，可用rose来画出状态图或者用word来表示！
7 性能
当数据多时超过100条，combobox listbox treeview listview dbgrid 等数据显示组件边输入边查询
支持模糊查询 模糊查询无非就是 like ‘%xxx%’可以做个单独的窗口把查到的数据显示在窗口中
