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

[The PRO]

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

[volvo]

Просто прозрачность не даст эффекта запотевшего стекла. Для этого надо снять скриншот... Проблема в другом - допустим, при старте приложения снять его не проблема:

procedure TForm1.FormCreate(Sender: TObject);
var DesktopBitmap: TBitmap;
begin
  DesktopBitmap := TBitmap.Create;
  with DesktopBitmap do begin
    Width := Form1.Width + 5;
    Height := Form1.Height + 30; // <--- чтоб заголовок формы не мешал
  end;

  BitBlt(DesktopBitmap.Canvas.Handle,
         0,0,Form1.Width+5,Form1.Height+30,
         GetDC(GetDesktopWindow),Form1.Left+5,Form1.Top+30,SrcCopy);
  Image1.Picture.Bitmap.Assign(DesktopBitmap);
  DesktopBitmap.Free;
end;

(на форме - один TImage привязанный к размерам формы)

, но что ты будешь делать при перетягивании окна по экрану? Каждый раз снимать скриншот? Система повесится...

Сообщение отредактировано: volvo - 27.06.2007 17:53