companyinfofrm.pas

这是一个本人初定的小制作

unit CompanyInfoFrm;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, MainDM, Dialogs, ExtDlgs, uConfigMgr, CommonFunc,
  Messages;

type
  TComanyInfoDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EdtName: TEdit;
    EdtLeader: TEdit;
    EdtTel: TEdit;
    EdtAddress: TEdit;
    Label5: TLabel;
    EdtLogo: TEdit;
    DlgOpenPic: TOpenPictureDialog;
    BtnBrowse: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnBrowseClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    FConfigMgr: TConfigMgr;
  public
    { Public declarations }
  end;

var
  ComanyInfoDlg: TComanyInfoDlg;

implementation

{$R *.dfm}

procedure TComanyInfoDlg.FormCreate(Sender: TObject);
begin
  FConfigMgr := TConfigMgr.Create;

end;

procedure TComanyInfoDlg.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FConfigMgr);
end;

procedure TComanyInfoDlg.FormShow(Sender: TObject);
begin
  EdtName.Text := FConfigMgr.CompanyName;
  EdtLeader.Text := FConfigMgr.CompanyLeader;
  EdtTel.Text := FConfigMgr.CompanyTel;
  EdtAddress.Text := FConfigMgr.CompanyAddress;
  EdtLogo.Text := FConfigMgr.CompanyLogo;
end;

procedure TComanyInfoDlg.BtnBrowseClick(Sender: TObject);
var
  LInitDir: string;
begin
  LInitDir := Trim(EdtLogo.Text);
  if LInitDir <> '' then
    DlgOpenPic.InitialDir := ExtractFilePath(LInitDir);
  if DlgOpenPic.Execute then
  begin
    EdtLogo.Text := DlgOpenPic.FileName;
  end;
end;

procedure TComanyInfoDlg.OKBtnClick(Sender: TObject);
begin
  CheckInput(EdtName);
  CheckInput(EdtLeader);
  CheckInput(EdtAddress);
  FConfigMgr.CompanyName := EdtName.Text;
  FConfigMgr.CompanyLeader := EdtLeader.Text;
  FConfigMgr.CompanyTel := EdtTel.Text;
  FConfigMgr.CompanyAddress := EdtAddress.Text;
  FConfigMgr.CompanyLogo := EdtLogo.Text;
end;

procedure TComanyInfoDlg.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Perform(WM_NEXTDLGCTL, 0, 0);
end;

end.