当我搜索一组数据显示在DBGrid中,我现在做到当在DBGrid中单击一行的时候能显示折行得信息在一个显示面板上,但是我现在想当按上下键移动选定行的时候也能提取折行信息.如何做到?
解决方案 »
- 关于odac
- 请教关于MIDI端口的获取方法(解决了再+100分)
- 如何看一个exe文件是由何种开发工具开发的?
- 有相关delphi2007的中文资料没有?
- 我发现一个删除表记录的问题请懂得人帮我解释一下
- 用到teechart7.0,打包时应怎么做?还是只需要主程序即可?谢谢!
- 自定义过程问题,
- 用DELPHI能否调用VB作的ACTIVEX DLL?
- 怎样将一些文件放在exe文件内,当执行时自动复制硬盘上,谢谢!
- 使用ADOCommand更新Sybase数据库表时遇到问题,给出正确答案一定给分
- 有没有 保存类属性名字的 数据类型
- 我安装了 KOL+MCK 组件,现在要用kol里 的 KOLHttp,但需要手动安装,可我怎么也装不上?希望大虾相助,,我的目的做个小体积的下载程序?
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;MousePos: TPoint): Boolean; override;//定义鼠标滚轮动作function TFyDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;MousePos: TPoint): Boolean;//鼠标滚轮动作
begin
result:=true;
if DataSource=nil then
exit;
if not assigned(DataSource.DataSet) then
exit; if not DataSource.DataSet.Active then
exit;
if WheelDelta <0 then//鼠标滚轮向下,数据向后移动
begin
DataSource.DataSet.Next;
end else
if WheelDelta >0 then//鼠标滚轮向上,数据向前移动
begin
DataSource.DataSet.Prior;
end;
end;