setunit.~pas

这也是一个通讯录软件

unit setunit;

interface

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

type
  Tsetform = class(TForm)
    cbadd: TCheckBox;
    cbmodify: TCheckBox;
    cbdelete: TCheckBox;
    bok: TBitBtn;
    bcancle: TBitBtn;
    XPMenu1: TXPMenu;
    procedure bokClick(Sender: TObject);
    procedure bcancleClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setform: Tsetform;
  addbool,modifybool,deletebool:bool;

implementation

{$R *.dfm}

procedure Tsetform.bokClick(Sender: TObject);
begin
  if cbadd.Checked then
    cbadd.Checked:=true
  else
    cbadd.Checked:=false;

  if cbmodify.Checked then
    cbmodify.Checked:=true
  else
    cbmodify.Checked:=false;

  if cbdelete.Checked then
    cbdelete.Checked:=true
  else
    cbdelete.Checked:=false;

  close;
end;

procedure Tsetform.bcancleClick(Sender: TObject);
begin
  cbadd.Checked:=addbool;
  cbmodify.Checked:=modifybool;
  cbdelete.Checked:=deletebool;

  close;
end;

procedure Tsetform.FormShow(Sender: TObject);
begin
  addbool:=cbadd.Checked;
  modifybool:=cbmodify.Checked;
  deletebool:=cbdelete.Checked;
  bcancle.SetFocus;
end;

procedure Tsetform.FormCreate(Sender: TObject);
begin
  cbadd.Checked:=true;
  cbmodify.Checked:=true;
  cbdelete.Checked:=true;
end;

end.