unit1.pas

delphi编程实效百例的随书源代码 这是其中的界面外观部分

unit Unit1;

interface

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

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

var
  Form1: TForm1;
//设置五角星区域顶点
const
  RgnPoints : array[1..10] of TPoint =
    ((X:203;Y:22), (X:157;Y:168), (X:3;Y:168),
    (X:128;Y:257), (X:81;Y:409), (X:203;Y:334),
    (X:325;Y:409), (X:278;Y:257), (X:402;Y:168),
    (X:249;Y:168));
//定义五角星轮廓线各个顶点坐标
  LinePoints : array[1..11] of TPoint =
    ((X:199;Y:0), (X:154;Y:145), (X:1;Y:145),
    (X:124;Y:233), (X:79;Y:384), (X:199;Y:310),
    (X:320;Y:384), (X:273;Y:234),(X:396;Y:145),
    (X:244;Y:145), (X:199;Y:0));

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
//程序创建窗体时改变窗体外形为五角星
var
  Rgn:HRGN;
begin
  Rgn:= CreatePolygonRgn(RgnPoints, High(RgnPoints), ALTERNATE);
  //创建一个多边形的区域
  SetWindowRgn(Handle, Rgn, True);
  //绘制多边形窗体
  form1.color:=rgb(80,110,220);
  //设置窗体初始背景颜色
  SetWindowPos(Form1.Handle,HWND_TOPMOST,Form1.Left,Form1.Top,Form1.Width,Form1.Height,0);
  //使窗体始终保持在最前
end;


procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Width := 1;
  //设定画笔大小
  Canvas.Polyline(LinePoints);
  //绘制多边形轮廓线
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowPos(Form1.Handle,HWND_NOTOPMOST,Form1.Left,Form1.Top,Form1.Width,Form1.Height,0);
  //恢复窗体正常位置和显示属性
  form1.close;
  //关闭窗体
end;


end.