Заставка в программе

[bulldog5293]

Есть в программе форма заставки, на ней размещён Image, в нём некий рисунок в виде элипса с выступающими краями, как сделать что бы был виден только этот рисунок, без белого фона и без самой формы?

[Пепел Феникса]

1)форма без бордюров
2)установить прозрачный цвет форме(+сделать основной цвет формы тем самым прозрачным)
3)в Image кладем изображение и включаем Transparent(изображение Битмап)

[DIgorevich]

Взято из ДелфиВорд:

>> Создание непрямоугольных окон.

Данный пример наглядно показывает как можно создавать прямоугольные окна, по
картинке.

Зависимости: Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms.
Автор:       Nikolay, hapnik@mail.ru, Moscow
Copyright:   http://delphi.mastak.ru
Дата:        27 апреля 2002 г.
***************************************************** }

// Свойства окна небходимо поставить
//Borders=None
var
  regn, tmpRegn: integer; // регион окна и временный регион
  x, y: integer; // координаты пикселя
  nullClr: TColor; // «прозрачный цвет»
begin
  nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
  // Image1 это картинка по которой создается форма окна
  regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,
    image1.picture.Graphic.Height);
  for x := 1 to image1.picture.Graphic.Width do
    for y := 1 to image1.picture.Graphic.Height do
      if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
      begin
        tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
        CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
        DeleteObject(tmpRegn);
      end;
  SetWindowRgn(form1.handle, regn, true);
end;

[bulldog5293]

неудачаб вылазиит ошибка и картинку видна вместе с формой
unit Unit8;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, jpeg, pngimage;

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

var
Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.FormCreate(Sender: TObject);
var
regn, tmpRegn: integer; // регион окна и временный регион
x, y: integer; // координаты пикселя
nullClr: TColor; // «прозрачный цвет»
Gray, RGB: TBitmap;
RS: TResourceStream;
Region: HRGN;
begin
SetWindowRgn(form8.handle, regn, true);
RGB := TBitmap.Create;
Gray := TBitmap.Create;
begin
nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
// Image1 это картинка по которой создается форма окна
regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,
image1.picture.Graphic.Height);
for x := 1 to image1.picture.Graphic.Width do
for y := 1 to image1.picture.Graphic.Height do
if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
begin
tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
DeleteObject(tmpRegn);
end;

end;

end;