能不能直接在一个Form上直接加一个背景图片

[djwdjw]

能不能直接在一个Form上直接加一个背景图片？不是那种在Form上加一个Image或者是其他控件，把图片放在这个控件上完成。？

[djwdjw]

非常感谢大家的解释。

[duxin]

对是这个意思 基本 都是用的Image

[Alanwn]

能，用image，把它充满，选图片就行了

[dickeybird888]

应该在 OnPaint事件中实现

procedure TForm1.FormPaint(Sender: TObject);
var
Bmp :TBitmap;
begin
Bmp :=TBitmap.Create;
Bmp.LoadFromFile('c:\10.bmp');
Canvas.Draw(0,0,Bmp);
Canvas.Refresh;
Bmp.Free;
end;

[Alanwn]

我晕~~~没看清，去改改form的icon这个属性试试好了

[FrameSniper]

当然可以！最简单的方式就是加一个Iamge

当然也可以在OnPaint中自己定义Canvas属性

[djwdjw]

已经给大家散分了，怎么大家还是0分，怎么搞的？

[IORILI]

Delphi中如何编写图像解析组件

Delphi作为一个强大的RAD开发工具，在应用软件的开发方面一直有着它的独特优势。这种优势同样体现在图像相关软件的开发上。如果你要在桌面上放置一张图像，只需要简单的在桌面上放置一个Image控件，然后就可以通过其Image属性任意的加载BMP、WMF、EMF等格式的图像。如果还想增加对JPEG的支持，只需要添加一个JPEG单元即可。甚至在Image中加载一张JPEG后，Delphi会自动添加一个JPEG单元。一切做起来就是这么的简单。基本格式都已经封装在了VCL中，那么Delphi对类似JPEG这样图像格式的支持是如何实现的呢？

其实从TPicture中很容易看出其中的实现过程，它可以理解为所有图像对象的容器。

如JPEG.pas中有如下两句代码:

TPicture.RegisterFileFormat('jpeg', sJPEGImageFile, TJPEGImage);
TPicture.RegisterFileFormat('jpg', sJPEGImageFile, TJPEGImage);

(sJPEGImageFile = 'JPEG Image File'，见JConsts.pas)

什么意思呢？可以理解为将TJPEGImage注册为jpeg、jpg两种后缀图像文件的类。

其实质就是将后缀，图像描述，具体图像解析类等信息保存到了FileFormats。

具体见如下代码：

var FileFormats: TFileFormatsList = nil;

class procedure TPicture.RegisterFileFormat(const AExtension,
ADescription: string; AGraphicClass: TGraphicClass);
begin
GetFileFormats.Add(AExtension, ADescription, 0, AGraphicClass);
end;

function GetFileFormats: TFileFormatsList;
begin
if FileFormats = nil then FileFormats := TFileFormatsList.Create;
Result := FileFormats;
end;

而TPicture默认支持四种图像格式是因为TFileFormatsList的构造函数中已进行了添加。

constructor TFileFormatsList.Create;
begin
inherited Create;
Add('wmf', SVMetafiles, 0, TMetafile);
Add('emf', SVEnhMetafiles, 0, TMetafile);
Add('ico', SVIcons, 0, TIcon);
Add('bmp', SVBitmaps, 0, TBitmap);
end;

也正是通过FileFormats中保存的信息，控件OpenPictureDialog中自动生成了所支持文件类型的列表。

那么该如何编写这些图像解析类呢？

TGraphic是TBitmap、TIcon、TMetafile对象的基类。同样这里的图像解析类也应该从TGraphic派生，利用很多VCL中已经封装了的代码，可以省去很多工作。

实现基本功能一般只需要重载三个成员：

TXXXImage = class(TGraphic)
protected
procedure Draw(ACanvas: TCanvas; const Rect: TRect); override;//绘制图像到画布
public
procedure LoadFromStream(Stream: TStream); override; //从流中获取图像数据
procedure SaveToStream(Stream: TStream); override; //将图像数据写入流中
end;

因为TGraphic.LoadFromFileTGraphic.SaveToFile中已经实现了由文件名读取数据到流的将流中的数据写入到对应文件的功能，无特殊需要这里可以不用重载。而成员Draw自然就是用于实现将图像绘制到画布，由于TCanvas对GDI的完善封装，这里不需要考虑如何将图像利用GDI绘制到窗体的这个过程。剩下的就只是编写图像解析部分的代码啦。

下面就以RAS格式为例做进一步的探讨。

这里没有用TGraphic作为基类，而是用了TBitmap，这样进一步把Draw的实现过程都省了，只需要在LoadFromStream中实现转化为位图的过程就可以了。

type

TRASGraphic = class(TBitmap)
public
procedure LoadFromStream(Stream: TStream); override;
procedure SaveToStream(Stream: TStream); override;
end;

//定义描述RAS文件头的记录类型
TRASHeader = packed record
Magic, //标记
Width, //宽
Height, //高
Depth, //色深
Length, //图像数据长度，可能会等于0
RasType, //格式类型
MapType, //调色板类型
MapLength: Cardinal; //调色板数据长度
end;

//定义一个用来描述RAS文件头的记录类型是非常必要的

const

//定义代表RAS所有类型的常量
RT_OLD = 0;
RT_STANDARD = 1;
RT_BYTE_ENCODED = 2;
RT_FORMAT_RGB = 3;
RT_FORMAT_TIFF = 4;
RT_FORMAT_IFF = 5;
RT_EXPERIMENTAL = $FFFF;

//定义代表调色板类型的常量
RMT_NONE = 0;//无调色板数据
RMT_EQUAL_RGB = 1;
RMT_RAW = 2;

{如果RAS的格式为RT_OLD，数据长度可能为0}


function SwapLong(const Value: Cardinal): Cardinal;
asm
BSWAP EAX//调用字节交换指令
end;

//抛出异常，参数为具体的异常信息
procedure RasError(const ErrorString: String);
begin
raise EInvalidGraphic.Create(ErrorString);
end;

{下面是实现部分的代码。}

procedure TRASGraphic.LoadFromStream(Stream: TStream);
var
Header: TRASHeader;
Row8: PByte;
Row24: PRGBTriple;
Row32: PRGBQuad;
PMap: PByte;
Y: Integer;
I: Integer;
MapReaded: Boolean;
Pal: TMaxLogPalette;
R,G,B:array[0..255] of Byte;
ColorByte: Byte;
begin
with Stream do
begin
ReadBuffer(Header, SizeOf(Header)); //将文件头数据读取到记录Header中
with Header do
begin
Width := SwapLong(Width);
Height := SwapLong(Height);
Depth := SwapLong(Depth);
Length := SwapLong(Length);
RASType := SwapLong(RASType);
MapType := SwapLong(MapType);
MapLength := SwapLong(MapLength);
end;
//由于读取数据的顺序问题，这里需要调用上面的SwapLong改变顺序。
if (Header.Magic = $956AA659) and
(Header.Width<>0) and (Header.Height<>0) and
(Header.Depth in [1,8,24,32]) and (Header.RasType in [RT_OLD,RT_STANDARD,RT_BYTE_ENCODED,RT_FORMAT_RGB]) then
begin
Width := Header.Width;
Height := Header.Height;
MapReaded := False;