Durchsichtiges formular

[mr_emre_d]

Falls du non-vcl arbeitest, hilft Folgendes:

Code:

--
//variablen:
//  hWindow -> Handle zum Window
//  wLong   -> "Buffer" um WindowStyle abzufragen
--
  wLong := GetWindowLong( hWindow, GWL_EXSTYLE );
  if NOT(hWindow = 0) then
  begin
    if wLong and WS_EX_LAYERED <> WS_EX_LAYERED then
      SetWindowLong( hWindow, GWL_EXSTYLE, wLong or WS_EX_LAYERED );
    SetLayeredWindowAttributes( hWindow, 0, Value, LWA_ALPHA );
  end;