1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormCreate(sender: TObject);
begin
    Form1.Brush.Style:=bsClear;
    Form1.BorderStyle:=bsNone;
end;

//Fenster schließen
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    Application.Terminate;
end;                    

1:
2:
3:
4:
5:

FormStyle:=fsStayOnTop;
BorderStyle:=bsNone;
Color:=clWhite;
TransparentColor:=True;
TransparentColorValue:=clWhite;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure FormCreate(Sender: TObject); 
procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd); message WM_EraseBkGnd; 


//für elliptische Formulare: 
procedure TForm1.FormCreate(Sender: TObject); 
var h: THandle; 
begin 
inherited; 
h := CreateEllipticRgn(Left, Top, Width, Height); 
SetWindowRgn(Handle,h,TRUE); 
end; 

//für Transparenten Hintergrund: 
procedure TForm1.WMEraseBkGnd(Var Msg: TWMEraseBkGnd); 
begin 
{ kein Hintergrund = Transparent ! } 
end;                    

1:
2:

procedure WMNCHitTest(var M: TWMNCHitTest);
  message wm_NCHitTest;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.WMNCHitTest (var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then
    M.Result := htCaption;
end;                    

1:
2:

BeginPath()
EndPath()                    

1:

PathToRegion