basefrm.pas

来自「一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。」· PAS 代码 · 共 50 行

unit BaseFrm;

{*******************************************
 * brief: 父窗体，定义统一的风格
 * autor: linzhenqun
 * date: 2005-10-19
 * email: [e-mail]
 * blog: http://blog.csdn.net/linzhengqun
********************************************}

interface

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

type
  TFrmBase = class(TForm)
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); override;
    { Public declarations }
    procedure getLangRes;virtual; //abstract;
  end;

var
  FrmBase: TFrmBase;

implementation
//uses
//  gnugettext;
{$R *.dfm}

constructor TFrmBase.Create(AOwner: TComponent);
begin
  inherited;
  //在这里定制窗口的风格
  Font := Screen.MenuFont;
  getLangRes;  
  //TranslateComponent(self);   //界面语言加载
end;

procedure TFrmBase.getLangRes;
begin
  // 所有界面语言 加载/改动
end;

end.