Scrollbar: Min, Max und Position

[himitsu]

TScrollBar.SetParams ?


Ansonsten selbermachen.

Delphi-Quellcode:

type
  TScrollBarPosHelper = class helper for TScrollBar
    function SetMinMax(Min, Max: Integer);
  end;

function TScrollBarPosHelper.SetMinMax(Min, Max: Integer);
begin
  if Min >= Self.Max then Self.Max := Max;
  if Max <= Self.Min then Self.Min := Min;
  if Position > Max  then Position := Max;
  if Position > Min  then Position := Min;
  if Min <> Self.Min then Self.Min := Min;
  if Max <> Self.Max then Self.Max := Max;
end;

Läßt sich natürlich auch als einzelne Prozedur verwenden, also vor D2006/TDE.