commparameter.pas

这是一个正式的项目工程

unit CommParameter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  PSystem, StdCtrls, Buttons, ComCtrls, ExtCtrls,SendCommand,CPortCtl,
  CPort;

type
  TfrmCommParameter = class(TfrmPSystem)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCommParameter: TfrmCommParameter;

implementation

{$R *.DFM}

procedure TfrmCommParameter.BitBtn1Click(Sender: TObject);
begin
  inherited;
  frmSendCommand.ComPort.ShowSetupDialog;
end;

procedure TfrmCommParameter.BitBtn2Click(Sender: TObject);
begin
  inherited;
  frmSendCommand.ComPort.StoreSettings(stRegistry, 'HKEY_LOCAL_MACHINE\Software\深圳特辰实业有限公司\特辰2000升降架自动控制系统\Setting');
end;

procedure TfrmCommParameter.BitBtn3Click(Sender: TObject);
begin
  inherited;
  try
    frmSendCommand.ComPort.LoadSettings(stRegistry, 'HKEY_LOCAL_MACHINE\Software\深圳特辰实业有限公司\特辰2000升降架自动控制系统\Setting');
  except
    ShowMessage('请先设置好通讯参数后，按存储按钮');
  end;
end;

end.