usize.pas

相关的销售服务管理行业的一个软件

unit USize;

interface

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

type
  TFrmsize = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    LstSet: TCheckListBox;
    Panel2: TPanel;
    Btnok: TBitBtn;
    BitExit: TBitBtn;
    procedure Edit1Change(Sender: TObject);
    procedure LstSetDblClick(Sender: TObject);
    procedure LstSetClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmsize: TFrmsize;

implementation

{$R *.DFM}

procedure TFrmsize.Edit1Change(Sender: TObject);
begin
// 
end;

procedure TFrmsize.LstSetDblClick(Sender: TObject);
begin
    edit1.Visible :=true;
Edit1.text:=LstSet.items.Strings[lstset.ItemIndex];
end;

procedure TFrmsize.LstSetClick(Sender: TObject);
begin
    Edit1.visible:=false;
end;

procedure TFrmsize.SpeedButton1Click(Sender: TObject);
var I:integer;
begin
   for  i:=0 to  Lstset.Items.Count-1 do
   begin
      if  LstSet.Items.IndexOf(Trim(Edit1.text))>=0 then
      begin
       Application.MessageBox('该尺码已存在！','错误',16);
       exit;
      end;
   end;
         LstSet.items.Strings[lstset.ItemIndex]:=Edit1.text;
end;

procedure TFrmsize.FormShow(Sender: TObject);
var i:integer  ;
begin
      for  i:=0 to  5 do
      begin
        LstSet.Checked[i]:=true; 
      end;
end;

end.