Ну вот это напиши в обработчиках создания и прорисовки формы, а компоненты натыканые на форме будут видны обычным образом:| Код |
procedure TForm1.FormPaint(Sender: TObject);
var
bitmap:tbitmap;
begin
BitBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
bb.Canvas.Handle, Left, Top, SRCCOPY);
bitmap:=tbitmap.Create;
bitmap.transparent:=true;
bitmap.transparentcolor:=clwhite;
canvas.Draw(0,0,bitmap);
bitmap.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered := True;
bb := Tbitmap.Create; // bb - глобальная переменная типа TBitmap
bb.Width := Screen.Width;
bb.height := Screen.Height;
BitBlt (bb.Canvas.Handle, 0, 0, bb.Width, bb.Height,
getdc(0), 0, 0, SRCCOPY); // копируем с экрана
end;
|
А если всё прозрачным нужно, то в свойствах формы, есть AlphaBlend которое нужно поставить в true и значение прозрачности свойство AlphaBlendValue в интервале от 0 до 255 (255 - непрозрачная) |
