一:GUI 界面:
代码如下:
unit Unit3_3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Buttons, CheckLst, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
CheckListBox1: TCheckListBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Button1: TButton;
Button3: TButton;
Button2: TButton;
Edit1: TEdit;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
i:=CheckListBox1.Items.Count-1;
while i>=0 do
begin
if CheckListBox1.Checked[i] then
ListBox1.Items.Add(CheckListBox1.Items.Strings[i]);
i:=i-1;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1.Text<>'' then
CheckListBox1.Items.Add(Edit1.Text);
edit1.Text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
i:=ListBox1.Items.Count-1;
while i>=0 do
begin
ListBox1.Items.Delete(i);
i:=i-1;
end;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
var i:integer;
begin
i:=CheckListBox1.Items.Count-1;
while i>=0 do
begin
if CheckListBox1.Checked[i] then
CheckListBox1.Items.Delete(i);
i:=i-1;
end;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
var i,k:integer;
begin
k:=CheckListBox1.Items.Count-1;
i:=0;
while i<=k do
begin
ListBox1.Items.Add(CheckListBox1.Items.Strings[i]);
i:=i+1;
end;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
var i:integer;
begin
i:=ListBox1.Items.Count-1;
while i>=0 do
begin
if ListBox1.Selected[i] then
ListBox1.Items.Delete(i);
i:=i-1;
end;
end;
end.