Create a new VCL project. In the properties of the main form, set Color to clRed , AlphaBlend to true , AlphaBlendValue to 127 , WindowState to wsMaximized , FormStyle to fsStayOnTop and add the following code:
type TForm1 = class(TForm) private protected procedure CreateParams(var Params: TCreateParams); override; ... procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited; Params.ExStyle := Params.ExStyle or WS_EX_LAYERED or WS_EX_TRANSPARENT; end;
( Video example, Compiled EXE example , Source )
source share