config.pas

串口通信相关的源码

unit Config;

interface

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

type
  TCfgForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    cbPort: TComboBox;
    Label2: TLabel;
    cbBaudRate: TComboBox;
    Label3: TLabel;
    cbParity: TComboBox;
    Label4: TLabel;
    cbByteSize: TComboBox;
    Label5: TLabel;
    cbStopBits: TComboBox;
    GroupBox2: TGroupBox;
    chHw: TCheckBox;
    chSw: TCheckBox;
    CfgOK: TButton;
    CfgCancel: TButton;
    GroupBox3: TGroupBox;
    chDtr: TCheckBox;
    chRts: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure chHwClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  CfgForm: TCfgForm;

implementation

var
  Gfhw : boolean;

{$R *.DFM}
procedure TCfgForm.FormCreate(Sender: TObject);
var
  i:Word;
begin
  for i:=1 to 8 do
    cbPort.Items.Add('COM' + IntToStr(i));
end;

procedure TCfgForm.chHwClick(Sender: TObject);
begin
  chRts.Enabled := Gfhw;
  Gfhw := Not Gfhw;
end;

end.