当前位置:学Delphi网文档资料专题讲解VGScene

vgScene里设计一个以png图片为窗体的程序

减小字体 增大字体 作者:学Delphi网  来源:本站整理  发布时间:2010-09-29 11:09:40

本篇主要讲解的是怎么样设计一个以PNG图片为窗体的程序的例子,看到QQ宠物的这些程序都很好玩,但在Delphi里如何设计一个这样的窗体呢?下面来看看在vgScene理如何做到!

1.新建一个工程,窗体设置为无边框样式,添加一个vgScene1控件,设置其充满整个窗体,将属性Transparency为true,设置为透明!将Root1的hittest属性设置为false.是为了可以拖动窗体。

2.准备一张PNG图片,例如我准备了一张时钟图片:'c:\test.png';窗体的大小尺寸尽量和图片的大小尺寸相当,在窗体的OnCreate事件下写如下代码:

procedure TForm7.FormCreate(Sender: TObject);
begin
  Root1.Fill.Style:=vgBrushBitmap; //设置root1 背景画布为图像模式
  Root1.Fill.Bitmap.WrapMode:=vgWrapTileStretch;//让画布图像充满整个画布
  Root1.Fill.Bitmap.Bitmap.LoadFromFile('c:\test.png');//画布载入png图像
end;

3.保存工程,运行程序效果如下:

 

 好了,一个简单的PNG图像为窗体的程序就完成了,同时可以在里面添加一些其他的按钮标签等控件,大家可以自己动手试试!

学Delphi网
http://www.xuedelphi.com
问答专区
http://ask.xuedelphi.com
QQ群:48336535
学Delphi网-VGScene讨论群:12985056

Tags:png图片窗体

作者:学Delphi网
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论