setfields.pas

来自「飞恒进销存(超市批发)管理系统（含源程序） 语言：Delphi 6/7 相」· PAS 代码 · 共 71 行

unit setFields;

interface

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

type
  TDlgSetFields = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    cmdOk: TSpeedButton;
    cmdExit: TSpeedButton;
    lbxNoShow: TListBox;
    lbxShowed: TListBox;
    cmdAdd: TSpeedButton;
    cmdDel: TSpeedButton;
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdOkClick(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DlgSetFields: TDlgSetFields;

implementation

{$R *.dfm}

procedure TDlgSetFields.cmdAddClick(Sender: TObject);
begin
  if lbxNoShow.itemindex >=0 then
  begin
    lbxShowed.Items.add(lbxNoShow.Items[lbxNoShow.itemindex]);
    lbxNoShow.Items.Delete(lbxNoShow.ItemIndex);
  end;
end;

procedure TDlgSetFields.cmdDelClick(Sender: TObject);
begin
  if lbxShowed.itemindex >=0 then
  begin
    lbxNoShow.Items.add(lbxShowed.Items[lbxShowed.itemindex]);
    lbxShowed.Items.Delete(lbxShowed.ItemIndex);
  end;
end;

procedure TDlgSetFields.cmdOkClick(Sender: TObject);
begin
  modalResult:=mrok;
end;

procedure TDlgSetFields.cmdExitClick(Sender: TObject);
begin
  modalResult:=mrCancel;
end;

procedure TDlgSetFields.FormShow(Sender: TObject);
begin
  lbxShowed.ItemIndex:=0;
end;

end.