unit1.pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    ListBox1: TListBox;
    Label2: TLabel;
    Button1: TButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Clear ;
  if  ComboBox1.Text <>''  then //如果选择或输入了电脑品牌，则把电脑品牌加到列表框中
      ListBox1.Items.add(ComboBox1.Text );
  if  RadioGroup1.ItemIndex <>-1  then //如果选择了CPU型号，把型号值加载到列表框中
      ListBox1.Items.Add(RadioGroup1.items[RadioGroup1.ItemIndex]);
  if  RadioGroup2.ItemIndex <>-1  then//如果选择了内存容量，把内存容量值加载到列表框中
      ListBox1.Items.Add(RadioGroup2.items[RadioGroup2.ItemIndex]);
  if CheckBox1.Checked then //以下测试是否选择了某个具体设备或配件，选择了就把它加到列表框中
      ListBox1.Items.Add('光驱');
  if CheckBox2.Checked then
      ListBox1.Items.Add('声卡');
  if CheckBox3.Checked then
      ListBox1.Items.Add('Modom');
  if CheckBox4.Checked then
      ListBox1.Items.Add('音箱');
end;

end.