При выполнении этой процедуры на XE7
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
IF ScrollBar1.Value = 0 THEN BEGIN
//Trend := True;
ScrollBar1.Value := 1;
END ELSE BEGIN
IF ScrollBar1.Value >= ScrollBar1.Max THEN BEGIN
ScrollBar1.Value := ScrollBar1.Max - 1;
//Trend := False;
END;
END;
end;
кнопочками на TScrollBar или из программы меняя ScrollBar1.Value все нормально, но если кликнуть мышкой в крайние значения, то положение ползунка не изменяется хотя значение ScrollBar1.Value принимает требуемое значение. Как в этом случае синхронизировать положение ползунка со значением ScrollBar1.Value?