Author: Tomas Rutkauskas
How do I make transparent forms?
Answer:
You need to override the CreateParam function and there add WS_EX_TRANSPARENT
to the Params.ExStyle.
Set the form's canvas' Brush.Style to bsClear, as shown in this example:
1 type2 TMyForm = class(TForm)
3 procedure FormCreate(Sender: TObject);
4 procedure CreateParams(var Params: TCreateParams); override;
5 end;
6 7 procedure TMyForm.CreateParams(var Params: TCreateParams);
8 begin9 inherited CreateParams(Params);
10 // this is the important constant!11 Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
12 end;
13 14 procedure TMyForm.FormCreate(Sender: TObject);
15 begin16 inherited;
17 Canvas.Brush.Style := bsClear;
18 end;