1:
2:

uses Controls, Classes, Forms, Messages, Windows,
     Graphics, SysUtils, Dialogs, StdCtrls; //Types gelöscht					

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

  TXStyleForm = class(TForm)
  private
   container: TXStyleContainer;
   fAlign: TAlign;
   fBorderStyle: TFormBorderStyle;
   fConstraints: TXSizeConstraints;
   fFormStyle: TFormStyle;
   fWindowState: TWindowState;
   fAlphaBlend: Integer; // by Gothicware, Inc.					

1:
2:
3:
4:

   procedure SetWindowState(const Value: TWindowState);
   procedure SetAlphaBlend(const Value: Integer); // by Gothicware, Inc.
  protected
   procedure SetAutoSize(Value: Boolean); virtual; // by Gothicware, Inc.					

1:
2:
3:
4:
5:

  published
   // Inkompatibel, BoolDoNothing tut nichts
   // (Für >=D6)
   property AlphaBlend: Integer read fAlphaBlend write SetAlphaBlend;  // edit by Gothicware, Inc.
   property TransparentColor: boolean write BoolDoNothing;					

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:

//------------[add/edit by Gothicware, Inc.]-------------->
//--> based on a routine by Kladov Vladimir form KOL Units
procedure TXStyleForm.SetAlphaBlend(const Value: Integer);
const
  LWA_COLORKEY=$00000001;
  LWA_ALPHA=$00000002;
  ULW_COLORKEY=$00000001;
  ULW_ALPHA=$00000002;
  ULW_OPAQUE=$00000004;
  WS_EX_LAYERED=$00080000;
type
  TSetLayeredWindowAttributes=
    function( hwnd: Integer; crKey: TColor; bAlpha: Byte; dwFlags: DWORD )
    : Boolean; stdcall;
var
  SetLayeredWindowAttributes: TSetLayeredWindowAttributes;
  User32: THandle;
  dw: DWORD;
begin
//  if Value = fAlphaBlend then Exit;
  fAlphaBlend := Value;
  User32 := GetModuleHandle( 'User32' );
  SetLayeredWindowAttributes := GetProcAddress( User32,'SetLayeredWindowAttributes' );
  if Assigned( SetLayeredWindowAttributes ) then
  begin
    dw := GetWindowLong( self.container.Handle , GWL_EXSTYLE );
    if Byte( Value ) < 256 then
    begin
      SetWindowLong( self.container.Handle, GWL_EXSTYLE, dw or WS_EX_LAYERED );
      SetLayeredWindowAttributes( self.container.Handle, 0, Value and $FF, LWA_ALPHA);
    end;
  end;
end;
//--------------------------------------------->					

1:
2:
3:
4:
5:

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Form1.AlphaBlend:= Scrollbar1.Position;
Caption:= IntToStr(Form1.AlphaBlend);
end;					

1:
2:

Form1.TransparentColor := rgb(255,0,255);
Form1.Transparent:= True;