Delphi 控件交换数据

迈不过友情╰ 2022-04-16 06:35 226阅读 0赞

一：GUI 界面：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MjUyODA4OQ_size_16_color_FFFFFF_t_70][]

代码如下：

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.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MjUyODA4OQ_size_16_color_FFFFFF_t_70]: /images/20220416/013dc61078fe406d944e7e42f77ccae3.png