在 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

---

运行效果图:

---