delphi 窗口透明

Posted 2023-02-23

我需要在一个Form上面放一个Image控件，占满Form，然后把Form和Image都弄成透明，然后在Image上面画红色的点（用的这句：Image1.Canvas.pixels[x, y] := clred;），但是我Image控件的区域虽然是透明的，但是还是有实体的东西，也就是不能点下面的东西，怎么可以让他真正透明，但是我的程序可以在上面画红点呢？？？？？？？

//方法一 ： 设置透明窗口
var
rtn : integer;
MybAlpha : byte;
begin
MybAlpha := 50;//透明度可以自己试效果 0~255;
Rtn:=GetWindowLong(Form1.Handle,GWL_EXSTYLE);
Rtn:=rtn+WS_EX_LAYERED;
SetWindowLong(Form1.Handle,GWL_EXSTYLE,Rtn);
SetLayeredWindowAttributes(Form1.Handle ,0,MybAlpha,LWA_ALPHA);
end;

//方法二：画布模式
//在窗体中放两个image

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with tcanvas.Create do //针对这个控件的属性
try
handle:=getdc(0); //dc(0)代表桌面
draw(x-image2.Width,y-image2.Height,image2.Picture.Graphic); //显示图片的函数
finally
releasedc(0,handle);
free;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
image:Timage;
scrCanvas:Tcanvas;
begin
self.BorderStyle := bsNone ;
self.WindowState := wsMaximized;
image1.Align := alclient ;
image2.Picture.LoadFromFile('C:\aa.jpg');
image:=Timage.Create(self);
image.Width:=Screen.DesktopWidth;
image.Height:=Screen.DesktopHeight;
scrCanvas:=Tcanvas.Create;
scrCanvas.Handle:=getDc(0);
bitblt(image.canvas.handle,0,0,
image.width,image.height,
scrcanvas.handle,0,0,srccopy);
Image1.Picture:=image.Picture;
image.Free;
scrCanvas.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
showwindow(application.Handle,SW_HIDE);
end; 参考技术A 画图的方法就是这样。

鼠标点击image下面的东西的话很难。因为image透明了不是不存在了。

你可以试一试找到鼠标点击的位置，然后再在delphi里面触发鼠标点击桌面的相同位置的事件。

试试吧。