unit1.~pas

不错

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ActnList, Menus, Unit2, StdActns, ExtActns,
  Buttons;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    Button1: TButton;
    Label1: TLabel;
    ActionList1: TActionList;
    Panel1: TPanel;
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Frame21: TFrame2;
    Panel2: TPanel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ListBox2: TListBox;
    Image1: TImage;
    OpenPicture1: TOpenPicture;
    FontEdit1: TFontEdit;
    PrintDlg1: TPrintDlg;
    N8: TMenuItem;
    N11: TMenuItem;
    N9: TMenuItem;
    N21: TMenuItem;
    N10: TMenuItem;
    N31: TMenuItem;
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    procedure Edit1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure ListBox2Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
label1.Caption:='你修改了编辑框的内容，目前其内容为'+edit1.Text;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  label1.Caption:='你修改了组合框的内容，目前你选择了'+combobox1.Items[combobox1.itemindex];
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
  label1.Caption:='你修改了多行文本编辑组件的内容，目前其内容为'+memo1.Text;
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
  label1.Caption:='你修改了列表框组件的内容，目前你选择了'+listbox2.Items[listBox2.itemindex];
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  label1.Caption:='你修改了单选分组框组件的内容，目前你选择了'+radioGroup1.Items[radioGroup1.Itemindex];
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
   label1.Caption:='你选择的职业为：'+RadioButton1.Caption;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
label1.Caption:='你选择的职业为：'+RadioButton2.Caption;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
label1.Caption:='你选择的职业为：'+RadioButton3.Caption;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
Frame21.Visible:=false;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
Frame21.Visible:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked=true then
  label1.Caption:='你选中了分组框组件GroupBox1的：'+CheckBox1.Caption
  else
  label1.Caption:='你没有选中分组框组件GroupBox1的：'+CheckBox1.Caption;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if CheckBox2.Checked=true then
  label1.Caption:='你选中了分组框组件GroupBox2的：'+CheckBox2.Caption
  else
  label1.Caption:='你没有选中分组框组件GroupBox2的：'+CheckBox2.Caption;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  if CheckBox3.Checked=true then
  label1.Caption:='你选中了分组框组件GroupBox3的：'+CheckBox3.Caption
  else
  label1.Caption:='你没有选中分组框组件GroupBox3的：'+CheckBox3.Caption;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
showmessage('本程序用于演示FRAMES、MAINMENU、POPUPMENU、LABEL、EDIT、MEMO、BUTTON、CHECKBOX、RADIOBUTTON、LISTBOX、COMOBOX、GROUPBOX、RADIOBOX、PANEL、ACTIONLIST等组件的用法。'+#13#10+'制作：计算机科学系 陈震');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
close;
end;

end.