1:
2:

const
  WS_EX_LAYERED = $00080000;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

FSavedParentExStyle := GetWindowLong(Parent.Handle, GWL_EXSTYLE);
      FSavedParentStyle := GetWindowLong(Parent.Handle, GWL_STYLE);

      if (Parent.ClassType.InheritsFrom(TForm)) then
      begin
         FSavedParentBorderStyle := (Parent as TForm).BorderStyle;
         (Parent as TForm).BorderStyle := bsNone;
      end;

      SetWindowLong(Parent.Handle, GWL_EXSTYLE, FSavedParentExStyle or WS_EX_LAYERED);
      SetWindowLong(Parent.Handle, GWL_STYLE, WS_VISIBLE);
      SetWindowPos(Parent.Handle, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_FRAMECHANGED);

      // Save current align
      FSavedAlign := Align;
      // Save current position
      FSavedBoundsRect := BoundsRect;

      Left := 0;
      Top := 0;
      Width := Parent.ClientWidth;
      Height := Parent.ClientHeight;

      m_size.cx := 0;
      m_size.cy := 0;
      m_pBitsWhite := nil;
      m_pBitsBlack := nil;

      if (0 <> m_hBmpWhite) then
      begin
         DeleteObject(m_hBmpWhite);
         m_hBmpWhite := 0;
      end;

      if (0 <> m_hBmpBlack) then
      begin
         DeleteObject(m_hBmpBlack);
         m_hBmpBlack := 0;
      end;

      FOldParentWndProc := Parent.WindowProc;
      Parent.WindowProc := NewParentWndProc;