Delphi画版权标志

最新推荐文章于 2019-09-09 19:01:00 发布

best335

最新推荐文章于 2019-09-09 19:01:00 发布

阅读量519

点赞数

文章标签： Delphi 版权标志

//Delphi:
Type

  TCopyRightLabel = Class(TGraphicControl)

  protected

    procedure Paint; override;

  end;



procedure TCopyRightLabel.Paint;

var

  CC : DWORD;

  Rect : TRect;

begin

  CC := $A9;

  Rect := ClientRect;

  Canvas.Brush.Style := bsClear;

  DrawTextW(Canvas.Handle , @CC , 1 , Rect , DT_EXPANDTABS);

end;



procedure TForm1.FormCreate(Sender: TObject);

var

  CL : TCopyRightLabel;

begin

  Label1.Caption := '版权信息:xxx';

  CL        := TCopyRightLabel.Create(Self);

  CL.Left   := Label1.Left + Label1.Width;

  CL.Top    := Label1.Top - 2;

  CL.Parent := Self;

  CL.Width  := Label1.Canvas.TextWidth('AA');

  CL.Height := Label1.Height;

  CL.Font.Assign(Self.Font);

end;


//在Label1后面加了一个©标记,如果想加®,把$A9改成$AE即可