Delphi实验2

P95：
实验3.2：按图3.28设计窗体，当用户选择后，按“确定”按钮，将选择内容显示在Edit组建中，注意各组件上的快捷键。按“取消”按钮，将Edit组件内容清空。
实验3.3：设计一个表决器，表决器中只有6个候选项（如北京上海深圳广州武汉南京），单选按钮有1 2 3 4，当选择3时，只能选择3个候选城市，通过程序自动限制复选框的廁数量，“提交”后将选择的城市显示在编辑框中，如图3.29所示。
Edit1.Text:=Edit1.Text+' '+TCheckBox(GroupBox1.Controls[i-1]).Caption;
end;
if count>(RadioGroup1.ItemIndex+1) then
Edit1.Text:='只能选'+Inttostr(RadioGroup1.ItemIndex+1)+'个城市';
三、实验结果与数据处理
3.2:
unit Unit3_2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
CheckBox6: TCheckBox;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
begin
ListBox2.Items.Add(ListBox1.Items.Strings[Item]);
ListBox1.Items.Delete(item);
break;
end;
showbtnen;
end;
procedure TForm1.Button3Click(Sender: TObject);
Button6: TButton;
Button7: TButton;
procedure ShowBtnEn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
then button3.Enabled:=true
else button3.Enabled:=false;
button5.Enabled:=false;
for i:=1 to ListBox2.Count-1 do
if ListBox2.Selected[i] then
begin button5.Enabled:=true; break; end;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
implementation
{$R *.dfm}
procedure TForm1.Showbtnen;
var i:integer;
begin
if ListBox1.Count>0
then button1.Enabled:=true
else button1.Enabled:=false;
if ListBox2.Count>0
ListBox1: TListBox;
ListBox2: TListBox;
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button4Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
ListBox1.Items.Delete(i);
showbtnen;
end;
procedure TForm1.Button2Click(Sender: TObject);
var Item:integer;
begin
for Item:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected[Item] then
end;
End.
3.5:
unit Unit3_5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
then button4.Enabled:=true
else button4.Enabled:=false;
if ListBox1.SelCount>0
then button2.Enabled:=true
else button2.Enabled:=false;
if ListBox2.SelCount>0
begin
showbtnen;
end;
procedure TForm1.ListBox2Click(Sender: TObject);
begin
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
GroupBox1: TGroupBox;
Байду номын сангаасend;
procedure TForm1.Button1Click(Sender: TObject);
var
choice:string;
begin
if RadioGroup1.ItemIndex<>-1 then
begin
case RadioGroup1.ItemIndex of
0:choice:='上网';
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,count:integer;
begin
count:=0;
Edit1.Text:='';
for i:=1 to GroupBox1.ControlCount do
if TCheckBox(GroupBox1.Controls[i-1]).Checked then
begin
count:=count+1;
var i:integer;
begin
for i:=0 to ListBox1.Items.Count-1 do
begin
ListBox2.Items.Add(ListBox1.Items.Strings[i]);
end;
for i:=ListBox1.Items.Count-1 downto 0 do
RadioGroup1: TRadioGroup;
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
break;
end;
showbtnen;
end;
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin