unit3.~pas

使用canvas组件写的可拖拽东西使用canvas组件写的可拖拽东西使用canvas组件写的可拖拽东西使用canvas组件写的可拖拽东西

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    gbMachine: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    cbMachinePort: TComboBox;
    edtWireLen: TEdit;
    cbWireType: TComboBox;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    lblCurrent: TLabel;
    lblMachine: TLabel;
    Label3: TLabel;
    edtXh: TEdit;
    Label7: TLabel;
    edtSj: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  mtype: string;
implementation
uses Unit1;
{$R *.dfm}

procedure TForm3.FormShow(Sender: TObject);
begin
  //所有组件不可用
  cbMachinePort.Enabled:=false;
  cbWireType.Enabled:=false;
  edtWireLen.Enabled:=false;
  edtXh.Enabled:=false;
  edtSj.Enabled:=false;
  //edtSj.ReadOnly:=true;
  //添加的是主机
  if(mtype=MACHINE_TYPE_ZJ) then
    begin
      edtXh.Enabled:=true;
      edtXh.SetFocus;
  //其它一些情况    
  end else begin
    cbMachinePort.Enabled:=true;
    cbWireType.Enabled:=true;
    edtWireLen.Enabled:=true;
    cbMachinePort.Items:=machineManage.getMachinePort(machineManage.current.mtype);
    cbMachinePort.ItemIndex:=0;
    edtWireLen.Text:='';
    edtXh.Text:='';
    edtSj.Text:='';
    if(mtype=MACHINE_TYPE_EH) then
      begin
        edtXh.Enabled:=true;
        edtSj.Enabled:=true;
    end else if(mtype=MACHINE_TYPE_EF) then
      edtSj.Enabled:=true
    else if(mtype=MACHINE_TYPE_GF) then
      edtXh.Enabled:=true;
    lblCurrent.Caption:=machineManage.getMachineName(machineManage.current.mtype);
    lblMachine.Caption:=machineManage.getMachineName(mtype);
  end;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  wl:integer;
  xh:integer;
  sj:float;
  wt:double;
begin
  try
    begin
      if(mtype=MACHINE_TYPE_ZJ) then
        begin
          machineManage.addMainMachine(strtoint(edtXh.Text),cpMousePoint.X,cpMousePoint.Y);
      end else
        begin
          wl:=strtoint(edtWireLen.Text);
          xh:=strtoint(edtXh.Text);
          sj:=strtofloat(edtSj.Text)*1;
          if(cbWireType.Text='1/2线') then
            wt:=0.07
          else if(cbWireType.Text='7/8线')then
            wt:=0.04;
          machineManage.addMachine(mtype,machineManage.getPortType(cbMachinePort.Text),wt,wl,xh,sj);
        end;
      form3.Close;
    end
  except
    begin
      showmessage('你输入了不符合格式的数据');
      edtWireLen.Text:='';
      edtWireLen.SetFocus;
    end;
  end;
end;

end.