Hallo Delphianer,

ich progge grade an einer neuen Kompo und habe bei

markieren

Code:

private FVolume : Integer

und im Publish-Block

markieren

Code:

Volume : Integer read FVolume write FVolume;

Stehlt man bei der installierte Kompo im OI Volume ein kann man fast jede zahl schreiben. Wie schaffe ich das man nur Zahlen von 0-100 schreiben kann. Und Mit dem code

markieren

Code:

MeineKompo1.Volume:= 50;

erzielt man auch keie Wirkung
Vielleicht könnt ihr mir ja helfen. Danke im voraus

mfg Poseidon

zusammenfalten · markieren

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;