MSDN:WM_HSCROLL писал(а):
SB_THUMBPOSITION
The user has dragged the scroll box (thumb) and released the mouse button. The high-order word indicates the position of the scroll box at the end of the drag operation.
SB_THUMBTRACK
The user is dragging the scroll box. This message is sent repeatedly until the user releases the mouse button. The high-order word indicates the position that the scroll box has been dragged to.
Или ты хочешь конкретики, где и что исправить в кодах? Пожалуйста:
#pas
function GetPos:integer;
function GetPos2:integer; //IAR
{......}
SB_PAGERIGHT: inc(nPos,32);
SB_THUMBPOSITION: nPos := GetPos; //IAR
SB_THUMBTRACK: nPos := GetPos2; //IAR
{......}
function THIScrollBar.GetPos2; //added by IAR
var si:TScrollInfo;
begin
si.cbSize := sizeof(si);
si.fMask := SIF_TRACKPOS;
GetScrollInfo(Control.Handle,SB_CTL,si);
Result := si.nPos + _prop_Min;
end;
Поиск
Друзья
Администрация