如何在DBGrid的数据中,当按上下键移动选定选定行时,与此同时将被选定的折行信息提取?

Question

当我搜索一组数据显示在DBGrid中,我现在做到当在DBGrid中单击一行的时候能显示折行得信息在一个显示面板上,但是我现在想当按上下键移动选定行的时候也能提取折行信息.如何做到?

Answer 1

补充: 对了我用了DBGrid的OnColEnter事件没有那效果!

Answer 2

在显示面板上用DBedit显示字段不就可以了吗？

Answer 3

 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;