Integer bei Kompo nur 0-100 und Wert ändern mit Button futzt

[dominikkv]

Delphi-Quellcode:

type
  TMyCompo = Class
  private
    fVolume: Integer;
    procedure SetVolume(const Value: Integer);
  public // bzw published
    property Volume: Integer read fVolume write SetVolume;
  end;

implementation

procedure TMyCompo.SetVolume(const Value: Integer);
begin
  if Value in [0..100] then
    fVolume := Value;
end;