Delphi 控制元件交換資料
阿新 • • 發佈:2018-11-23
一: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.