unit3.~pas

噪声对通信系统的影响试验程序 模仿各种噪声对不同通信系统的影响 具有很强的学习价值

unit Unit3;

interface

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

type
  TIniFrm = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    comchoice: TRadioGroup;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  IniFrm: TIniFrm;

implementation

uses noise1;

{$R *.dfm}

procedure TIniFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;

procedure TIniFrm.FormDestroy(Sender: TObject);
begin
IniFrm := nil;
end;

procedure TIniFrm.Button3Click(Sender: TObject);
begin

    MForm.ToolButton6.enabled:=false;
    MForm.ToolButton2.enabled:=true;
    MForm.ToolButton5.enabled:=true;
    MForm.ToolButton7.enabled:=true;
    close;



end;

end.