【delphi开源代码栏目提醒】：网学会员为广大网友收集整理了，main_xfgl_xxll_llszform.pas，希望对大家有所帮助！

    unit main_xfgl_xxll_llszform;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, Buttons, ExtCtrls, Mask, Spin;
    
    type
      Tmain_xfgl_xxll_llsz = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        ComboBox1: TComboBox;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        Bevel1: TBevel;
        Bevel2: TBevel;
        Label3: TLabel;
        sppp: TSpinEdit;
        Bevel3: TBevel;
        procedure ComboBox1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      main_xfgl_xxll_llsz: Tmain_xfgl_xxll_llsz;
    
    implementation
    
    {$R *.DFM}
    
    procedure Tmain_xfgl_xxll_llsz.ComboBox1Click(Sender: TObject);
    begin
       if combobox1.Text='0.5秒' then
        label3.Caption:='500'
       else if combobox1.Text='1.0秒' then
         label3.Caption:='1000'
       else if combobox1.Text='1.5秒' then
         label3.Caption:='1500'
         else if combobox1.Text='2.0秒' then
         label3.Caption:='2000'
       else if combobox1.Text='2.5秒' then
         label3.Caption:='2500'
        else if combobox1.Text='3.0秒' then
         label3.Caption:='3000'
       else if combobox1.Text='3.5秒' then
         label3.Caption:='3500'
       else if combobox1.Text='4.0秒' then
         label3.Caption:='4000'
       else if combobox1.Text='4.5秒' then
         label3.Caption:='4500'
       else
         label3.Caption:='5000';
    end;
    
    end.