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

[FreeZon]

Как сделать прозрачную форму, когда я выставляю все Transarent везде и Color формы ставлю clWhile да она становится прозрачной. но у меня там картинка PNG и на ней этот белый цвет как тень остаетсся

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

[FaTaL]

Т.е. ты хочешь, чтобы форма была в виде картинки? Тогда вот delphiworld.narod.ru

[FreeZon]

Сообщение от FaTaL

Т.е. ты хочешь, чтобы форма была в виде картинки? Тогда вот delphiworld.narod.ru

Это на FormCreate ставить?

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;

[FreeZon]

Сообщение от FaTaL

Т.е. ты хочешь, чтобы форма была в виде картинки? Тогда вот delphiworld.narod.ru

все белое фон

[ZuBy]

UpdateLayeredWindow, не?

[Malriser]

в OnCreate кинь

AlphaBlend:=true;
AlphaBlendValue:=220;

Где 220 - значение прозрачности. Форму лучше делай черной. Т.к белый цвет и черный при прозрачности почти одинаковые, с белым только блики.

У меня на картинку не влияет, все супер получается.

P.S. Картинка тоже прозрачная