seluserunit.pas

来自「DELPHI 下远程控制源码」· PAS 代码 · 共 83 行

unit SelUserUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Mask;

type
  TSelUserFm = class(TForm)
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    MaskEdit1: TMaskEdit;
    Panel1: TPanel;
    ListBox1: TListBox;
    Panel4: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ListBox2: TListBox;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelUserFm: TSelUserFm;

implementation

{$R *.dfm}

procedure TSelUserFm.BitBtn1Click(Sender: TObject);
begin
   Close;
end;

procedure TSelUserFm.SpeedButton1Click(Sender: TObject);
begin
   if ListBox1.Items.Count=0 then exit;
   if ListBox1.ItemIndex=-1 then exit;
    ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
    ListBox1.DeleteSelected;
end;

procedure TSelUserFm.SpeedButton2Click(Sender: TObject);
begin
  if ListBox2.ItemIndex=-1 then exit;
  ListBox2.DeleteSelected;
end;

procedure TSelUserFm.SpeedButton3Click(Sender: TObject);
begin
    if ListBox2.Items.Count=0 then exit;
    if ListBox2.ItemIndex=-1 then exit;
    ListBox1.Items.Add(ListBox2.Items[ListBox2.ItemIndex]);
    ListBox2.DeleteSelected;
end;

procedure TSelUserFm.SpeedButton4Click(Sender: TObject);
begin
  ListBox1.Items.AddStrings(ListBox2.Items);
  ListBox2.Items.Clear;
end;

procedure TSelUserFm.ListBox1DblClick(Sender: TObject);
begin
    if ListBox1.SelCount=0 then exit;
    ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
    ListBox1.DeleteSelected;
end;

end.