Delphi 3 Editor transparent machen ?

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

Delphi-Quellcode:

//benötigt Windows 2000...

Const LWA_ALPHA = $2; 
  WS_EX_LAYERED = $80000; 

Function SetLayeredWindowAttributes(Const hWnd: HWND; crKey: Integer; 
  bAlpha: Byte; dwFlags: Integer): Integer; stdcall; external 'user32.dll'; 

Procedure TForm1.FormCreate(Sender: TObject);
  Var Temp: Integer;

  Begin
    Temp := GetWindowLong(Handle, GWL_EXSTYLE);
    Temp := Temp or WS_EX_LAYERED;
    SetWindowLong(Handle, GWL_EXSTYLE, Temp);
    { T = transparents                          }
    { T = 255: undurchsichtig                   }
    { T = 0: 100% durchsichtig (nicht sichtbar) }
    SetLayeredWindowAttributes(Handle, 0, 200{T}, LWA_ALPHA);
  End;

Add:
Handle = das Handle des Fensters, welches geändert werden soll.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif