Создаем тень для формы

[stasa9711]

Добрый день, реализовал я рамку для формы, но нужно добавить еще и тень к ней ...
вот как реализовал рамку :

var
  dc: hDc;
  Pen: hPen;
  OldPen: hPen;
  OldBrush: hBrush;
Msg: TWMNCPaint;
begin
  inherited;
  dc := GetWindowDC(Handle);
  msg.Result := 10;
  Pen := CreatePen(PS_SOLID, 3, RGB(0, 154, 205));
  OldPen := SelectObject(dc, Pen);

  OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));

  Rectangle(dc, 0,0, Form6.Width, Form6.Height);
  SelectObject(dc, OldBrush);
  SelectObject(dc, OldPen);
  DeleteObject(Pen);
  ReleaseDC(Handle, Canvas.Handle);

как можно поставить еще тень сюда ?

к примеру, для css на html это будет выглядеть так :

у меня щас реализовано вот такое :

а нужно , чтоб было вот так :


подскажите как реализовать пожалуйста

[stasa9711]

никто не знает ?

[BARNEY]

Картинку подложить с тенью?

[stasa9711]

нее... как под форму положишь то ... не вариант

[BARNEY]

зачем под, о_О на форму , убираем заголовок (в стиле по моему делается), и панель поверх картинки...

[stasa9711]

надо подготовить еще картинку специальную, которая только по краям видна, а внутри нет ... разве так можно ?
может как то можно для hPen сделать тень или своего рода свечение

[Человек_Борща]

stasa9711, между рендером каскадных стилей и просто Delphi разница - земля и небо.

[stasa9711]

можете пример привести как сделать ?

[Bahonty]

Я использовал Shaper из TMS Component PAck 7

[ZuBy]

В последних XE разве нельзя TShadowEffect на форму кинуть? Не получится?