Хочу урасить форму и сделать её как в Висте. А именно. Я хочу узнать, как сделать снимок той части экрана, которая находится под формой, это изображение поместить на компонент TImage, изображение растянуть по всей форме и применить к этому изображению эфферк Blur, чтобы форма выглядела как прозрачное запотевшее стекло. Заранее спасибо .
Просто прозрачность не даст эффекта запотевшего стекла. Для этого надо снять скриншот... Проблема в другом - допустим, при старте приложения снять его не проблема:
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;