波の量は WaveSize プロパティで変更することができます。波のようすは Time プロパティで変更することができます。Time をベースにアニメーション化すると、波の時間変化をシミュレートできます。
Time
波が適用される時間を示します。
Time は System.Single 値で、0.00 から 2048.00 の範囲の値を取ります。
Time を変更すると、波の様子が変化します。Time のアニメーションは、時間内に波が変わっていくのをシミュレーションします。
Time が明示的に設定されていない場合、0.00 に等しいと見なされます。
procedure TForm1.TrackBar1Change(Sender: TObject);
var
i : integer ;
t : TComponent ;
v : Single ;
begin
v := TrackBar1.Value ;
for i := 1 to 9 do begin
t := FindComponent('WaveEffect'+IntToStr(i));
if (t <> nil) then
TWaveEffect(t).WaveSize := v ;
end;
end;
