Anderes fenster transparent machen!

[Goldesel]

Hallo,

ich denke mal, dass dies hier die richtige Rubrik ist.

Mich würde interessieren, ob es möglich ist, eine anderes Fenster, wie z.B. Excel o.ä. transparent darzustellen. Ich hoffe, dass mir da jemand weiterhelfen kann.

Vielen Dank
Jannik

[Neutral General]

Wie würde 3_of_8 sagen:

Such mal im Forum nach trans.pas

:mrgreen:

Gruß
Neutral General

[Interceptor]

Hast du den suchlink ausprobiert? :wink:

Zitat:

Zitat von Suche

Gehe zu Seite 1, 2, 3 ... 57, 58, 59 Weiter

[Neutral General]

Na gut :mrgreen:

Dann hab ich hier was aus meiner privaten Code-Lib :)

Delphi-Quellcode:

procedure MakeWindowTransparent(Wnd: HWND; Alpha: Byte); 
const 
  WS_EX_LAYERED = $80000; 
  LWA_ALPHA     = $02; 
type 
  TSetLayeredWindowAttributes = function(const hWnd: HWND; crKey: Integer; bAlpha: Byte; dwFlags: Integer) : Integer; stdcall; 
var
  SetLayeredWindowAttributes : TSetLayeredWindowAttributes; 
  User32DLL                  : THandle; 
begin 
  User32DLL := LoadLibrary('User32.dll'); 
  if User32DLL <> 0 then 
  begin
    @SetLayeredWindowAttributes := GetProcAddress(User32DLL, 'SetLayeredWindowAttributes');
    if @SetLayeredWindowAttributes <> nil then 
    begin
      SetWindowLong(Wnd, GWL_EXSTYLE, GetWindowLong(Wnd, GWL_EXSTYLE) or WS_EX_LAYERED); 
      SetLayeredWindowAttributes(Wnd, 0, Alpha, LWA_ALPHA); 
    end; 
  end; 
  FreeLibrary(User32DLL); 
end;