Comment faire une forme transparente dans Lazarus?

Question

Je veux rendre mon formulaire transparent. Ensuite, quand je fais AlphaBlend est vrai, tout le composant est transparent. Comment rendre le formulaire transparent, sauf pour le composant?

Form in lazarus

Answer 1

solution de 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; 

Remplir le formulaire de couleur rouge et la création lui transparent.