如何在lazarus中制作透明表格？

Question

我想让我的表单透明。然后当我使 AlphaBlend 为真时，所有组件都是透明的。如何让窗体除了组件透明？

Form in lazarus

Answer 1

Windows 解法：

uses Windows;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
Color:=clRed;
SetWindowLongPtr(Self.Handle, GWL_EXSTYLE,GetWindowLongPtr(Self.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(Self.Handle, clRed, 0, LWA_COLORKEY);
end;

用红色填充表格并创建他透明。