Fenster trasnparent drüber legen

[lbccaleb]

Transparentes Fenster:

Delphi-Quellcode:

function SetFormTransparent(AFormHandle: HWnd; ATransparentVal: Byte): Boolean;
var ExStyle: Integer;
begin
  ExStyle := GetWindowLong(AFormHandle, GWL_EXSTYLE);
  if ((ExStyle and WS_EX_LAYERED) = 0) then //kein Layered Fenster ?
    ExStyle := ExStyle or WS_EX_LAYERED;

  if ((ExStyle and WS_EX_TRANSPARENT) = 0) then //kein "druchklickbares" Fenster ?
    ExStyle := ExStyle or WS_EX_TRANSPARENT;

  SetWindowLong(AFormHandle, GWL_EXSTYLE, ExStyle);
  result := SetLayeredWindowAttributes(AFormHandle, 0, ATransparentVal, LWA_ALPHA);
end;

Aufruf:
SetFormTransparent(Form1.Handle, 150);
Edit:
Das Microsoft Developer Network ist zu mehreren Sprachen kompatibel