unit3.pas

来自「Delphi Pascal 数据挖掘领域算法包 回归分析」· PAS 代码 · 共 65 行

unit Unit3;

interface

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

type
  TXFormDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XFormDlg: TXFormDlg;

implementation

{$R *.DFM}


procedure TXFormDlg.OKBtnClick(Sender: TObject);

begin
// XFormDlg.Visible:= FALSE;
end;


procedure TXFormDlg.CancelBtnClick(Sender: TObject);
begin
  close;
end;


procedure TXFormDlg.CheckBox1Click(Sender: TObject);

begin
  CheckBox2.Checked:= FALSE;
  CheckBox2.Refresh;
end;


procedure TXFormDlg.CheckBox2Click(Sender: TObject);

begin
  CheckBox1.Checked:= FALSE;
  CheckBox1.Refresh;
end;


end.