动态生成一个设定好特殊样式的Tlabel，快速生成代码

动态生成一个设定好特殊样式的Tlabel，快速生成代码；

1、自己先在可视化界面设定一个Label，像这样：

2、选择label，快捷键ctrl+C 复制，粘贴带代码编辑器去，会生成一段这样的窗体代码；

object lbl1: TLabel
  Left =
  Top =
  Width =
  Height =
  Align = alLeft
  Alignment = taCenter
  Caption = '   '#########'GPS'######
  Color =
  Font.Charset = GB2312_CHARSET
  Font.Color = clWhite
  Font.Height = -
  Font.Name = ####
  Font.Style = []
  ParentColor = False
  ParentFont = False
  Layout = tlCenter
  ExplicitHeight =
end

3、在代码里面修改一下即可，修改成：

fProjName :TLabel;//定义

{$IFDEF GuangXiNanTie}
  fProjName :=TLabel.Create(self);
  with fProjName do
  begin
    Parent :=Self;
    Left := ;
    Top := ;
    //Width = 289
    //Height = 47
    Align := alLeft;
    Alignment := taCenter;
    Caption :='  中国移动广西公司GPS指挥调度平台';
    Color := $00FDFDFD;
    Font.Charset := ANSI_CHARSET;
    Font.Color := $00FDFDFD;
    Font.Height := -;
    Font.Name := ####;
    Font.Style := [];
    ParentColor := False;
    ParentFont := False;
    Layout := tlCenter ;
    //ExplicitHeight = 19
  end;
  {$ENDIF}

拓展：DEFINE的用法 ：定义在文件头，Interface之前，只能在本单元生效，举例：

unit uTitleBar;
//{$DEFINE GuangXiNanTie}

interface