DELPHI实验八

实验要求：
1、根据给出的列表组件.exe，选择组件.exe两个可执行文件，实现相应功能。

2、（选作）根据给出的赛马可执行文件，实现相应功能。

主要代码:
列表
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls;
type
TForm4 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
node:Ttreenode;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject); begin
node:=treeview1.Selected;
treeview1.Items.AddChildFirst(node,node.Text+'的儿子'); end;
procedure TForm4.Button2Click(Sender: TObject); begin
node:=treeview1.Selected;
treeview1.Items.delete(node);
end;
end.
选择
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, ExtCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioGroup1: TRadioGroup;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckListBox1: TCheckListBox;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Dirty:Boolean;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled:=True;
Dirty:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
if RadioButton1.Checked=true then
Memo1.Text:=Memo1.Text+#13#10'单选选项1被选中'
else
Memo1.Text:=Memo1.Text+#13#10'单选选项2被选中';
if RadioGroup1.ItemIndex=0 then
Memo1.Text:=Memo1.Text+#13#10'单选群组选项1被选中' else
Memo1.Text:=Memo1.Text+#13#10'单选群组选项2被选中'; if CheckBox1.checked=true then
Memo1.Text:=Memo1.Text+#13#10'多选框1被选中';
if CheckBox2.checked=true then
Memo1.Text:=Memo1.Text+#13#10'多选框2被选中';
if checklistbox1.ItemIndex=0 then
Memo1.Text:=Memo1.Text+#13#10'群组多选框1被选中' else
Memo1.Text:=Memo1.Text+#13#10'群组多选框2被选中'; Dirty:=False;
Button1.Enabled:=False;
end;
end.。