fdmemtable 虚拟字段可编辑

//可编辑

fdmemtable.Fields.FindField('name').ReadOnly := false

//跟进鼠标滚轴滚动

procedure TF100136.scrlbx1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
inherited;
if WheelDelta < 0 then
SendMessage(scrlbx1.Handle, WM_VSCROLL, SB_LINEDOWN, 0) //向下滚
else
SendMessage(scrlbx1.Handle, WM_VSCROLL, SB_LINEUP, 0); //向上滚
end;

 

//回到顶端

  SendMessage(scrlbx1.Handle,WM_VSCROLL,SB_TOP,0)  ;