如何做一个软件的启动画面
做一个软件的启动画面，关键是要将放在窗体上的位图部分显示出来，而将其它的部分隐藏，以此来达到具有自己特色的软件启动画面。下面我们以Delphi为例向大家介绍如何做一个软件的启动画面。
#1 1.程序中函数简介
TBitmap.Mask（TransparentColor:TColor）
Mask函数把位图转换成单色位图，用白色来替代指定的透明色（TransparentColor），其余颜色用黑色来替代。
TBitmap.Scanline［Row:Integer]:Pointer
通过Scanline［Row］属性可获得位图第Row行扫描线的指针。
BeginPath（HDC hdc）、EndPath（HDC hdc）、CloseFigure（HDC hdc）
BeginPath函数在指定的设备上下文（Device context）中打开路径，EndPath函数关闭该路径，CloseFigure函数通过把终点和起点连成直线来关闭路径。这三个函数中的hdc是指设备上下文句柄（Handle to device context），程序中调用的是TBitmap.Canvas.Handle。
PathToRegion（HDC hdc）
PathToRegion函数把路径转换成区域。
CreateRegion（SourceBmp: TBitmap; MyTransparentColor:TColor）:HRGN;
CreateRegion函数把透明位图转换成区域，返回值为区域的句柄。其中SourceBmp为要转换的位图，MyTransparentColor为指定的透明色。
#1 2.程序清单
unit bmptorgn
{将程序定义为一个独立的单元（Unit），这样在需要调用CreateRegion函数单元的Uses语句中加上Bmptorgn即可。}
interface
uses
Windows，Graphics;
function CreateRegion（SourceBmp:TBitmap;MyTransparentColor:TColor）:HRGN;
implementation
function CreateRegion（SourceBmp:TBitmap;MyTransparentColor:TColor）:HRGN;
var
offbyte，lineaddress，x，y:integer;
isline:boolean;｛画线标志，"true"表示开始画线，"false"表示终止画线｝
bmp:tbitmap;｛程序中使用的单色位图｝
Cx，Cy:integer;｛线的起点｝
bitcolor:byte;｛点（x，y）处的颜色｝
begin
bmp:=Tbitmap.create;
bmp.assign:sourcebmp;
with bmp;bmp.canvas do begin
mask（MyTransparentColor）;
Monochrome:=true;设置为单色位图｝
pixelformat:=pf1bit;
BeginPath（handle）;
for y:=0 to Height-1 do begin
lineaddress:=longint（scanline［y］）;
isline:= false;
for x:=0 to Width-1 do begin;
offbyte:=（x shr 3）;点（x，y）处的颜色值在第y行扫描线中的偏移字节数｝
bitcolor:=（（Pbyte（lineaddress+offbyte）^shl（x-（offbyte shl 3）））and $80）;｛将点（x.y）处的颜色值移到最高位，然后和$80进行与计算，结果为0时是黑色，128则为白色。bitcolor的值也可采用canvas.pixel（x，y），但运行速度比采用Scanline方法的慢｝
if bitcolor=0 then begin
if not isline then begin
isline:= true;
Cx:= x;
Cy:= y;
end;
if x=Width-1 then begin
MoveTo（Cx，Cy）;
LineTo（Width，cy）;
LineTo（Width，Cy+1）;
LineTo（Cx，Cy+1）;
CloseFigure（handle）;
end;
end else if isline then begin
isline:= false;
MoveTo（Cx，Cy）;
LineTo（Width，cy）;
LineTo（Width，Cy+1）;
LineTo（Cx，Cy+1）;
CloseFigure（handle）;
end;
end;
end;
EndPath（handle）;
result:= PathToRegion（handle）;
end;
bmp.free;
end;
end.
#1 3.例程
该程序的主窗口包括一个Timage控件，Form1、Image1的Autosize属性均为“True”。Image1所包含位图的背景颜色为$40ffff。
程序清单如下：
unit main;
interface
uses
Windows，Messages，SysUtils，Classes，Graphics，Controls，Forms，ExtCtrls，bmptorgn;
type
TForm1 = class（TForm）
Image1:TImage;
procedure FormCreate（Sender:TObject）;
procedure FormCreate（Sender:TObject）;
private
｛Private declarations｝
public
｛Private declarations｝
end;
var
Form1:TForm1;
implementation
｛$R*.DFM｝
procedure TForm1.FormCreate（Sender:TOb-ject）;
var myrgn:HRGN;
begin
myrgn:=CreateRegion（image1.picture.bitmap，$40ffff）;
offsetrgn（myrgn，clientorigin.x-left，clientorigin.y-top）;｛将区域移到窗口的客户区（Client area）｝
setwindowrgn（handle，myrgn，true）;｛设置窗口区域｝
end;
procedure TForm1.Image1Click（Sender:TOb-ject）;
begin
close;｛由于没有标题栏，所以采用该方法退出程序｝
end;
end.
注：程序在Windows98 Delphi5下运行通过。