options.pas

来自「一个由Tlistview写的通讯录」· PAS 代码 · 共 85 行

unit Options;

interface

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

type
  TOptionf = class(TForm)
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    NameEdit: TEdit;
    MoveTelEdit: TEdit;
    OfficeEdit: TEdit;
    CompanyEdit: TEdit;
    WebEdit: TEdit;
    BirthdayEdit: TEdit;
    HomeTelEdit: TEdit;
    FaxEdit: TEdit;
    PostCodeEdit: TEdit;
    EmailEdit: TEdit;
    AddressEdit: TEdit;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure LoadMessages;
  end;

var
  Optionf: TOptionf;

implementation

uses Note;

{$R *.dfm}

procedure TOptionf.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Release;
end;

procedure TOptionf.LoadMessages;
begin
  NameEdit.Text:=NoteMess.Name;
  BirthdayEdit.Text:=NoteMess.Birthday;
  MoveTelEdit.Text:=NoteMess.MoveTel;
  HomeTelEdit.Text:=NoteMess.HomeTel;
  OfficeEdit.Text:=NoteMess.OfficeTel;
  FaxEdit.Text:=NoteMess.Fax;
  CompanyEdit.Text:=NoteMess.Company;
  PostCodeEdit.Text:=NoteMess.PostCode;
  AddressEdit.Text:=NoteMess.Address;
  EmailEdit.Text:=NoteMess.Email;
  WebEdit.Text:=NoteMess.Web;
end;

procedure TOptionf.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TOptionf.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#27 then
    Close;
end;

end.