renamefrm.pas

一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。

unit RenameFrm;

{*******************************************
 * brief: 重命名窗体
 * autor: linzhenqun
 * date: 2005-11-01
 * email: [e-mail]
 * blog: http://blog.csdn.net/linzhengqun
********************************************}

interface

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

type
  TFrmRename = class(TFrmBase)
    lblCaption: TLabel;
    btnOK: TButton;
    btnCancel: TButton;
    edtName: TEdit;
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
    FTheName: string;
    procedure SetTheName(const Value: string);
  public
    { Public declarations }
    property TheName: string read FTheName write SetTheName;
    function Execute: Boolean;
    procedure getLangRes;override;
  end;

var
  FrmRename: TFrmRename;

implementation
uses
  CommonUtils;
{$R *.dfm}

procedure TFrmRename.getLangRes;
begin
  inherited;
  Self.Caption := pubGet(210);
  lblCaption.Caption := pubGet(211);
  btnOk.Caption := pubGet(5);
  btnCancel.Caption := pubGet(6);  
end;

function TFrmRename.Execute: Boolean;
begin
   Result := ShowModal = mrOk;
end;

procedure TFrmRename.btnOKClick(Sender: TObject);
begin
  inherited;
  if edtName.Text = '' then
  begin
    MessageBox(Handle, PChar(pubGet('Err_NameEmpty')),
      PChar(pubGet(1)), MB_OK + MB_ICONERROR);
    edtName.SetFocus;
    Exit;
  end;
  FTheName := edtName.Text;
  ModalResult := mrOk;
end;

procedure TFrmRename.SetTheName(const Value: string);
begin
  if FTheName <> Value then
  begin
    FTheName := Value;
    edtName.Text := value;
  end;
end;

end.