如何在拉撒路制作透明的形式？

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;

将表格填充为红色并使其透明。