Стиль формы как в Windows Vista Опции

[The PRO]

Хочу урасить форму и сделать её как в Висте.
А именно.
Я хочу узнать, как сделать снимок той части экрана, которая
находится под формой, это изображение поместить на компонент
TImage, изображение растянуть по всей форме и применить
к этому изображению эфферк Blur, чтобы форма выглядела
как прозрачное запотевшее стекло. Заранее спасибо .

[volvo]

А например если поместить на форму кнопку

, то поставь вот эту процедуру:

procedure TForm1.GetBg;
var
  DesktopBitmap: TBitmap;
  R: TRect;
  P: TPoint;
begin
  DesktopBitmap := TBitmap.Create;
  R := GetClientRect;
  with DesktopBitmap do begin
    Width := R.Right - R.Left;
    Height := R.Bottom - R.Top;
  end;

  P := ClientToScreen(R.TopLeft);
  BitBlt(DesktopBitmap.Canvas.Handle,
         0,0,Form1.Width - Form1.BorderWidth,Form1.Height - Form1.BorderWidth,
         GetDC(GetDesktopWindow), P.X, P.Y, SRCCOPY);
  DesktopBitmap.PixelFormat := pf24bit;

  GBlur(DesktopBitmap, 2); // Взято из DRKB

  Image1.Picture.Bitmap.Assign(DesktopBitmap);
  DesktopBitmap.Free;
end;

+ не забудь в OnCreate формы добавить:

...
  AlphaBlendValue := 254;
  AlphaBlend := True;
  ...

(запусти с этими строками, и без них, поймешь зачем это нужно)