Форма по контуру рисунка

[nikmay]

Хочу сделать заставку в своем приложении.
Это будет невидимая форма, на которой бедут расположен TImage с рисунком.

ВОПРОС: Как сделать так, чтобы эта форма была по форме рисунка?

Я сделал форму прозрачной, а компоненты на ней видимые. Рисунок типа [EM]png[/EM] без фона.
У TImage свойство прозрачности установлено.
Проблема в том, что фон у рисунка остается серым все равно.
Как быть, подскажите?

[Lime]

Смотри прилепленный архив , накидал по быстрому

[TwiX]

Как создать форму определенной формы

Можно создать форму по картинке. Т.е. находишь картинку в форме ножниц и создаёшь по ней форму.
Код

procedure Tmain.WMNCHitTest (var M:TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;

procedure Tmain.FormCreate(Sender: TObject);
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(main.handle, regn, true);

end;

Поипиксельно проверяешь цвет и если он должен быть прозрачный то создаёшь его регион (смотри выше). Потом выкалываешь сумму регионов.