unit1.pas

来自「适合有一定基础的编程者」· PAS 代码 · 共 47 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}







procedure TForm1.FormCreate(Sender: TObject);
var
rgn:HRGN;
begin
 BeginPath(Canvas.Handle);  //绘制的开始路径
 SetBkMode( Canvas.Handle, TRANSPARENT );
 Canvas.Font.Name:= '宋体'; //设定字体
 Canvas.Font.Size:=100;     //字的大小
 Canvas.Font.Color:=clBlue;//文字的颜色
 Canvas.TextOut( 20, 20, '漂亮吗?');//用"漂亮吗?"作为form的形状
 EndPath(Canvas.Handle);  //绘制的结束路径
 rgn:= PathToRegion(Canvas.Handle);
 SetWindowRgn( Handle, rgn, true );//设置窗体的形状
end;

end.