在 Delphi 下使用 DirectSound (16): 环境混响效果器 IDirectSoundFXI3DL2Reverb8

IDirectSoundFXI3DL2Reverb8 效果器除了拥有 GetAllParameters()、SetAllParameters() 外, 还比其它效果器多出了四个方法:
GetQuality()、SetQuality()、GetPreset()、SetPreset().

---

{相关结构:}

TDSFXI3DL2Reverb = packed record

  lRoom: Longint;              //-10000 : 0    : -1000  (mB)

  lRoomHF: Longint;            //-10000 : 0    : 0      (mB)

  flRoomRolloffFactor: Single; //     0 : 10   : 0.0

  flDecayTime: Single;         //   0.1 : 20   : 1.49   (s)

  flDecayHFRatio: Single;      //   0.1 : 2    : 0.83

  lReflections: Longint;       //-10000 : 1000 : -2602  (mB)

  flReflectionsDelay: Single;  //     0 : 0.3  : 0.007  (s)

  lReverb: Longint;            //-10000 : 2000 : 200    (mB)

  flReverbDelay: Single;       //     0 : 0.1  : 0.011  (s)

  flDiffusion: Single;         //     0 : 100  : 100.0  (%)

  flDensity: Single;           //     0 : 100  : 100.0  (%)

  flHFReference: Single;       //   20 : 20000 : 5000.0 (Hz)

end;



//该结构相关常量:

DSFX_I3DL2REVERB_ROOM_MIN                  = -10000;

DSFX_I3DL2REVERB_ROOM_MAX                  = 0;

DSFX_I3DL2REVERB_ROOM_DEFAULT              = -1000;



DSFX_I3DL2REVERB_ROOMHF_MIN                = -10000;

DSFX_I3DL2REVERB_ROOMHF_MAX                = 0;

DSFX_I3DL2REVERB_ROOMHF_DEFAULT            = -100;



DSFX_I3DL2REVERB_ROOMROLLOFFFACTOR_MIN     = 0.0;

DSFX_I3DL2REVERB_ROOMROLLOFFFACTOR_MAX     = 10.0;

DSFX_I3DL2REVERB_ROOMROLLOFFFACTOR_DEFAULT = 0.0;



DSFX_I3DL2REVERB_DECAYTIME_MIN             = 0.1;

DSFX_I3DL2REVERB_DECAYTIME_MAX             = 20.0;

DSFX_I3DL2REVERB_DECAYTIME_DEFAULT         = 1.49;



DSFX_I3DL2REVERB_DECAYHFRATIO_MIN          = 0.1;

DSFX_I3DL2REVERB_DECAYHFRATIO_MAX          = 2.0;

DSFX_I3DL2REVERB_DECAYHFRATIO_DEFAULT      = 0.83;



DSFX_I3DL2REVERB_REFLECTIONS_MIN           = -10000;

DSFX_I3DL2REVERB_REFLECTIONS_MAX           = 1000;

DSFX_I3DL2REVERB_REFLECTIONS_DEFAULT       = -2602;



DSFX_I3DL2REVERB_REFLECTIONSDELAY_MIN      = 0.0;

DSFX_I3DL2REVERB_REFLECTIONSDELAY_MAX      = 0.3;

DSFX_I3DL2REVERB_REFLECTIONSDELAY_DEFAULT  = 0.007;



DSFX_I3DL2REVERB_REVERB_MIN                = -10000;

DSFX_I3DL2REVERB_REVERB_MAX                = 2000;

DSFX_I3DL2REVERB_REVERB_DEFAULT            = 200;



DSFX_I3DL2REVERB_REVERBDELAY_MIN           = 0.0;

DSFX_I3DL2REVERB_REVERBDELAY_MAX           = 0.1;

DSFX_I3DL2REVERB_REVERBDELAY_DEFAULT       = 0.011;



DSFX_I3DL2REVERB_DIFFUSION_MIN             = 0.0;

DSFX_I3DL2REVERB_DIFFUSION_MAX             = 100.0;

DSFX_I3DL2REVERB_DIFFUSION_DEFAULT         = 100.0;



DSFX_I3DL2REVERB_DENSITY_MIN               = 0.0;

DSFX_I3DL2REVERB_DENSITY_MAX               = 100.0;

DSFX_I3DL2REVERB_DENSITY_DEFAULT           = 100.0;



DSFX_I3DL2REVERB_HFREFERENCE_MIN           = 20.0;

DSFX_I3DL2REVERB_HFREFERENCE_MAX           = 20000.0;

DSFX_I3DL2REVERB_HFREFERENCE_DEFAULT       = 5000.0;





{SetQuality() 方法相关常量:}

DSFX_I3DL2REVERB_QUALITY_MIN               = 0;

DSFX_I3DL2REVERB_QUALITY_MAX               = 3;

DSFX_I3DL2REVERB_QUALITY_DEFAULT           = 2;



{SetPreset() 方法相关常量:}

DSFX_I3DL2_ENVIRONMENT_PRESET_DEFAULT         = 0;

DSFX_I3DL2_ENVIRONMENT_PRESET_GENERIC         = 1;

DSFX_I3DL2_ENVIRONMENT_PRESET_PADDEDCELL      = 2;

DSFX_I3DL2_ENVIRONMENT_PRESET_ROOM            = 3;

DSFX_I3DL2_ENVIRONMENT_PRESET_BATHROOM        = 4;

DSFX_I3DL2_ENVIRONMENT_PRESET_LIVINGROOM      = 5;

DSFX_I3DL2_ENVIRONMENT_PRESET_STONEROOM       = 6;

DSFX_I3DL2_ENVIRONMENT_PRESET_AUDITORIUM      = 7;

DSFX_I3DL2_ENVIRONMENT_PRESET_CONCERTHALL     = 8;

DSFX_I3DL2_ENVIRONMENT_PRESET_CAVE            = 9;

DSFX_I3DL2_ENVIRONMENT_PRESET_ARENA           = 10;

DSFX_I3DL2_ENVIRONMENT_PRESET_HANGAR          = 11;

DSFX_I3DL2_ENVIRONMENT_PRESET_CARPETEDHALLWAY = 12;

DSFX_I3DL2_ENVIRONMENT_PRESET_HALLWAY         = 13;

DSFX_I3DL2_ENVIRONMENT_PRESET_STONECORRIDOR   = 14;

DSFX_I3DL2_ENVIRONMENT_PRESET_ALLEY           = 15;

DSFX_I3DL2_ENVIRONMENT_PRESET_FOREST          = 16;

DSFX_I3DL2_ENVIRONMENT_PRESET_CITY            = 17;

DSFX_I3DL2_ENVIRONMENT_PRESET_MOUNTAINS       = 18;

DSFX_I3DL2_ENVIRONMENT_PRESET_QUARRY          = 19;

DSFX_I3DL2_ENVIRONMENT_PRESET_PLAIN           = 20;

DSFX_I3DL2_ENVIRONMENT_PRESET_PARKINGLOT      = 21;

DSFX_I3DL2_ENVIRONMENT_PRESET_SEWERPIPE       = 22;

DSFX_I3DL2_ENVIRONMENT_PRESET_UNDERWATER      = 23;

DSFX_I3DL2_ENVIRONMENT_PRESET_SMALLROOM       = 24;

DSFX_I3DL2_ENVIRONMENT_PRESET_MEDIUMROOM      = 25;

DSFX_I3DL2_ENVIRONMENT_PRESET_LARGEROOM       = 26;

DSFX_I3DL2_ENVIRONMENT_PRESET_MEDIUMHALL      = 27;

DSFX_I3DL2_ENVIRONMENT_PRESET_LARGEHALL       = 28;

DSFX_I3DL2_ENVIRONMENT_PRESET_PLATE           = 29;

---

测试代码:

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    LabeledEdit1: TLabeledEdit;

    LabeledEdit2: TLabeledEdit;

    LabeledEdit3: TLabeledEdit;

    LabeledEdit4: TLabeledEdit;

    LabeledEdit5: TLabeledEdit;

    LabeledEdit6: TLabeledEdit;

    LabeledEdit7: TLabeledEdit;

    LabeledEdit8: TLabeledEdit;

    LabeledEdit9: TLabeledEdit;

    LabeledEdit10: TLabeledEdit;

    LabeledEdit11: TLabeledEdit;

    LabeledEdit12: TLabeledEdit;

    Label1: TLabel;

    Label2: TLabel;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure LabeledEdit1Change(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



uses DirectSound, ActiveX, ReadWave2; //ReadWave2 是前面(9)自定义的单元



var

  myDSound: IDirectSound8;

  buf8: IDirectSoundBuffer8;

  fxI3DL2Reverb: IDirectSoundFXI3DL2Reverb8; //IDirectSoundFXI3DL2Reverb8 效果器



procedure TForm1.FormCreate(Sender: TObject);

var

  i: Integer;

begin

  System.ReportMemoryLeaksOnShutdown := True;

  DirectSoundCreate8(nil, myDSound, nil);

  myDSound.SetCooperativeLevel(Handle, DSSCL_NORMAL);



  Button1.Caption := '打开并播放';

  Button2.Caption := '停止播放';



  LabeledEdit1.EditLabel.Caption := 'lRoom: -10000 - 0';

  LabeledEdit1.Text := '-1000';

  LabeledEdit1.Tag := 1;



  LabeledEdit2.EditLabel.Caption := 'lRoomHF: -10000 - 0';

  LabeledEdit2.Text := '0';

  LabeledEdit2.Tag := 2;



  LabeledEdit3.EditLabel.Caption := 'flRoomRolloffFactor: 0.0 - 10.0';

  LabeledEdit3.Text := '0.0';

  LabeledEdit3.Tag := 3;



  LabeledEdit4.EditLabel.Caption := 'flDecayTime: 0.1 - 20.0';

  LabeledEdit4.Text := '1.49';

  LabeledEdit4.Tag := 4;



  LabeledEdit5.EditLabel.Caption := 'flDecayHFRatio: 0.1 - 2.0';

  LabeledEdit5.Text := '0.83';

  LabeledEdit5.Tag := 5;



  LabeledEdit6.EditLabel.Caption := 'lReflections: -10000 - 1000';

  LabeledEdit6.Text := '-2602';

  LabeledEdit6.Tag := 6;



  LabeledEdit7.EditLabel.Caption := 'flReflectionsDelay: 0.0 - 0.3';

  LabeledEdit7.Text := '0.007';

  LabeledEdit7.Tag := 7;



  LabeledEdit8.EditLabel.Caption := 'lReverb: -10000 - 2000';

  LabeledEdit8.Text := '200';

  LabeledEdit8.Tag := 8;



  LabeledEdit9.EditLabel.Caption := 'flReverbDelay: 0.0 -0.1';

  LabeledEdit9.Text := '0.011';

  LabeledEdit9.Tag := 9;



  LabeledEdit10.EditLabel.Caption := 'flDiffusion: 0.0 - 100.0';

  LabeledEdit10.Text := '100.0';

  LabeledEdit10.Tag := 10;



  LabeledEdit11.EditLabel.Caption := 'flDensity: 0.0 - 100.0';

  LabeledEdit11.Text := '100.0';

  LabeledEdit11.Tag := 11;



  LabeledEdit12.EditLabel.Caption := 'flHFReference: 20.0 - 20000.0';

  LabeledEdit12.Text := '5000.0';

  LabeledEdit12.Tag := 12;



  {其它 TLabeledEdit 的 OnChange 事件同 LabeledEdit1}

  for i := 0 to ControlCount - 1 do

    if Controls[i].ClassName = LabeledEdit1.ClassName then TLabeledEdit(Controls[i]).OnChange := LabeledEdit1.OnChange;



  {测试 SetQuality()、SetPreset() 的控件}

  Label1.Caption := 'SetQuality:';

  Label2.Caption := 'SetPreset:';

  ComboBox1.Items.CommaText := '最低,低,高,最高';

  ComboBox2.Items.CommaText :=

      'DSFX_I3DL2_ENVIRONMENT_PRESET_DEFAULT,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_GENERIC,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_PADDEDCELL,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_ROOM,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_BATHROOM,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_LIVINGROOM,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_STONEROOM,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_AUDITORIUM,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_CONCERTHALL,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_CAVE,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_ARENA,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_HANGAR,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_CARPETEDHALLWAY,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_HALLWAY,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_STONECORRIDOR,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_ALLEY,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_FOREST,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_CITY,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_MOUNTAINS,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_QUARRY,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_PLAIN,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_PARKINGLOT,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_SEWERPIPE,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_UNDERWATER,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_SMALLROOM,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_MEDIUMROOM,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_LARGEROOM,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_MEDIUMHALL,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_LARGEHALL,'

    + 'DSFX_I3DL2_ENVIRONMENT_PRESET_PLATE';



  ComboBox1.ItemIndex := 2;

  ComboBox2.ItemIndex := 0;

  ComboBox2.OnChange := ComboBox1.OnChange;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

  buf: IDirectSoundBuffer;

  bufDesc: TDSBufferDesc;

  rEffect: TDSEffectDesc;

  wav: TReadWave;

  p1: Pointer;

  n1: DWORD;

begin

  wav := TReadWave.Create;

  if not wav.OpenDialog then begin wav.Free; Exit; end;



  ZeroMemory(@bufDesc, SizeOf(TDSBufferDesc));

  bufDesc.dwSize := SizeOf(TDSBufferDesc);

  bufDesc.dwFlags := DSBCAPS_CTRLFX or DSBCAPS_LOCSOFTWARE;

  bufDesc.dwBufferBytes := wav.Size;

  bufDesc.lpwfxFormat := @wav.Format;

  myDSound.CreateSoundBuffer(bufDesc, buf, nil);

  buf.QueryInterface(IID_IDirectSoundBuffer8, buf8);



  buf8.Lock(0, 0, @p1, @n1, nil, nil, DSBLOCK_ENTIREBUFFER);

  wav.Read(p1, n1);

  wav.Free;

  buf8.Unlock(p1, n1, nil, 0);



  ZeroMemory(@rEffect, SizeOf(TDSEffectDesc));

  rEffect.dwSize := SizeOf(TDSEffectDesc);

  rEffect.dwFlags := 0;

  rEffect.guidDSFXClass := GUID_DSFX_STANDARD_I3DL2REVERB; //GUID_DSFX_STANDARD_I3DL2REVERB;



  Set8087CW($133f); //少了这句, 下面的 SetFX() 会浮点溢出

  buf8.SetFX(1, @rEffect, nil);

  Set8087CW(Default8087CW); //恢复默认的浮点精度



  buf8.GetObjectInPath(GUID_DSFX_STANDARD_I3DL2REVERB, 0, IID_IDirectSoundFXI3DL2Reverb8, fxI3DL2Reverb);

  buf8.Play(0, 0, DSBPLAY_LOOPING);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

  if Assigned(buf8) then buf8.Stop;

end;



procedure TForm1.LabeledEdit1Change(Sender: TObject);

var

  rI3DL2Reverb: TDSFXI3DL2Reverb;

  f: Single;

  obj: TLabeledEdit;

begin

  obj := Sender as TLabeledEdit;

  if obj.Text = '-' then Exit;



  f := StrToFloatDef(obj.Text, MaxInt);

  case obj.Tag of

    1:  if (f < -10000) or (f > 0)     then obj.Text := '-1000';

    2:  if (f < -10000) or (f > 0)     then obj.Text := '0';

    3:  if (f < 0)      or (f > 10)    then obj.Text := '0.0';

    4:  if (f < 0.1)    or (f > 20)    then obj.Text := '1.49';

    5:  if (f < 0.1)    or (f > 2)     then obj.Text := '0.83';

    6:  if (f < -10000) or (f > 1000)  then obj.Text := '-2602';

    7:  if (f < 0)      or (f > 0.3)   then obj.Text := '0.007';

    8:  if (f < -10000) or (f > 2000)  then obj.Text := '200';

    9:  if (f < 0)      or (f > 0.1)   then obj.Text := '0.011';

    10: if (f < 0)      or (f > 100)   then obj.Text := '100.0';

    11: if (f < 0)      or (f > 100)   then obj.Text := '100.0';

    12: if (f < 20)     or (f > 20000) then obj.Text := '5000.0';

  end;



  if buf8 = nil then Exit;

  rI3DL2Reverb.lRoom               := StrToInt(LabeledEdit1.Text);

  rI3DL2Reverb.lRoomHF             := StrToInt(LabeledEdit2.Text);

  rI3DL2Reverb.flRoomRolloffFactor := StrToFloat(LabeledEdit3.Text);

  rI3DL2Reverb.flDecayTime         := StrToFloat(LabeledEdit4.Text);

  rI3DL2Reverb.flDecayHFRatio      := StrToFloat(LabeledEdit5.Text);

  rI3DL2Reverb.lReflections        := StrToInt(LabeledEdit6.Text);

  rI3DL2Reverb.flReflectionsDelay  := StrToFloat(LabeledEdit7.Text);

  rI3DL2Reverb.lReverb             := StrToInt(LabeledEdit8.Text);

  rI3DL2Reverb.flReverbDelay       := StrToFloat(LabeledEdit9.Text);

  rI3DL2Reverb.flDiffusion         := StrToFloat(LabeledEdit10.Text);

  rI3DL2Reverb.flDensity           := StrToFloat(LabeledEdit11.Text);

  rI3DL2Reverb.flHFReference       := StrToFloat(LabeledEdit12.Text);

  fxI3DL2Reverb.SetAllParameters(rI3DL2Reverb);

end;



procedure TForm1.ComboBox1Change(Sender: TObject);

begin

  if fxI3DL2Reverb = nil then Exit;

  fxI3DL2Reverb.SetQuality(TComboBox(Sender).ItemIndex);

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

  buf8 := nil;

  myDSound := nil;

end;



end.

---

窗体设计:

---

object Form1: TForm1

  Left = 0

  Top = 0

  Caption = 'Form1'

  ClientHeight = 366

  ClientWidth = 548

  Color = clBtnFace

  Font.Charset = DEFAULT_CHARSET

  Font.Color = clWindowText

  Font.Height = -11

  Font.Name = 'Tahoma'

  Font.Style = []

  OldCreateOrder = False

  OnCreate = FormCreate

  OnDestroy = FormDestroy

  PixelsPerInch = 96

  TextHeight = 13

  object Label1: TLabel

    Left = 128

    Top = 312

    Width = 31

    Height = 13

    Caption = 'Label1'

  end

  object Label2: TLabel

    Left = 207

    Top = 312

    Width = 31

    Height = 13

    Caption = 'Label2'

  end

  object Button1: TButton

    Left = 32

    Top = 28

    Width = 75

    Height = 25

    Caption = 'Button1'

    TabOrder = 0

    OnClick = Button1Click

  end

  object Button2: TButton

    Left = 32

    Top = 75

    Width = 75

    Height = 25

    Caption = 'Button2'

    TabOrder = 1

    OnClick = Button2Click

  end

  object LabeledEdit1: TLabeledEdit

    Left = 128

    Top = 30

    Width = 193

    Height = 21

    EditLabel.Width = 61

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit1'

    TabOrder = 2

    OnChange = LabeledEdit1Change

  end

  object LabeledEdit2: TLabeledEdit

    Left = 128

    Top = 77

    Width = 193

    Height = 21

    EditLabel.Width = 61

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit2'

    TabOrder = 3

  end

  object LabeledEdit3: TLabeledEdit

    Left = 128

    Top = 125

    Width = 193

    Height = 21

    EditLabel.Width = 61

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit3'

    TabOrder = 4

  end

  object LabeledEdit4: TLabeledEdit

    Left = 128

    Top = 173

    Width = 193

    Height = 21

    EditLabel.Width = 61

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit4'

    TabOrder = 5

  end

  object LabeledEdit5: TLabeledEdit

    Left = 128

    Top = 221

    Width = 193

    Height = 21

    EditLabel.Width = 61

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit5'

    TabOrder = 6

  end

  object LabeledEdit6: TLabeledEdit

    Left = 128

    Top = 269

    Width = 193

    Height = 21

    EditLabel.Width = 61

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit6'

    TabOrder = 7

  end

  object LabeledEdit7: TLabeledEdit

    Left = 336

    Top = 30

    Width = 193

    Height = 21

    EditLabel.Width = 61

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit7'

    TabOrder = 8

  end

  object LabeledEdit8: TLabeledEdit

    Left = 336

    Top = 78

    Width = 193

    Height = 21

    EditLabel.Width = 61

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit8'

    TabOrder = 9

  end

  object LabeledEdit9: TLabeledEdit

    Left = 336

    Top = 125

    Width = 193

    Height = 21

    EditLabel.Width = 61

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit9'

    TabOrder = 10

  end

  object LabeledEdit10: TLabeledEdit

    Left = 336

    Top = 173

    Width = 193

    Height = 21

    EditLabel.Width = 67

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit10'

    TabOrder = 11

  end

  object LabeledEdit11: TLabeledEdit

    Left = 336

    Top = 221

    Width = 193

    Height = 21

    EditLabel.Width = 67

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit11'

    TabOrder = 12

  end

  object LabeledEdit12: TLabeledEdit

    Left = 336

    Top = 269

    Width = 193

    Height = 21

    EditLabel.Width = 67

    EditLabel.Height = 13

    EditLabel.Caption = 'LabeledEdit12'

    TabOrder = 13

  end

  object ComboBox1: TComboBox

    Left = 128

    Top = 331

    Width = 73

    Height = 21

    TabOrder = 14

    Text = 'ComboBox1'

    OnChange = ComboBox1Change

  end

  object ComboBox2: TComboBox

    Left = 207

    Top = 331

    Width = 322

    Height = 21

    TabOrder = 15

    Text = 'ComboBox2'

  end

end

---

运行效果图:

---