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



Gruß
Neutral General

[Interceptor]

Hast du den suchlink ausprobiert?

Zitat von Suche:

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

[Neutral General]

Na gut

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;