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

procedure TForm1.FormCreate(Sender: TObject);
begin
  borderstyle:=bsnone;
  height:=24;
  width:=60;//kommt wahrscheinlich auf die Auflösung an
  left:=0;
  top:=screen.height-height-1;
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
end;                    

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

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := WS_EX_TRANSPARENT;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Rect: TRect;
begin
  GetWindowRect(FindWindow('Shell_TrayWnd', nil), Rect);

  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone;
  borderstyle:=bsnone;
  height:=24;
  width:=60;//kommt wahrscheinlich auf die Auflösung an
  left:=rect.Left;
  top:=rect.Top;
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
end;                    

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

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbright then begin
    form1.top:=-50;
    mouse_event(MOUSEEVENTF_rightDOWN,left+x,top+y,0,0);
    mouse_event(MOUSEEVENTF_rightUP,left+x,top+y,0,0);
    if button=mbright then
      form1.top:=rect.top;
    form1.BringToFront;
  end;
end;