UpdateLayeredWindow + Buttons/Edit

[Gruber_Hans_12345]

Hallo

Wie schaffe ich es auf einem Form, das ich mit UpdateLayeredWindow Transparent mache, auch noch Buttons, Edit und LAbels anzuzeigen?

Bei mir werden die einfach nicht angezeigt bzw. das UpdateLayeredWindow wird einfach drüber gezeichnet ...

[Gruber_Hans_12345]

Hallo, habe gerade rausgefunden, das es mit UpdateLayeredWindow leider nicht funktioniert ;(

Weiss jemand anders eine Lösung, um ein Formular mit AlphaChannel zu versehen?

Ich habe eine Formular, das nach einer Form ausgeschnitten werden soll (Bisher habe ich es mit den JV gemacht, da gabs ein TJvTransparentForm)
aber nun möchte ich auch eine Halbtransparent verwenden
In meinem Fall ist es ein Schatten, der im PNG existiert, und der nun mitgezeichnet werden soll.

Mit UpdateLayeredWindow funkt es optisch 1a, aber wie gesagt kann dies ja keine Childcontrols verwenden ...

[lbccaleb]

Hey, vllt hilft dir das hier weiter:

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;

Aufruf:

MakeWindowTransparent(form1.handle, 155); mfg

[Gruber_Hans_12345]

nein, das bringt mir ledier nichts, da die transparenz bei mir über den alpha kanal gesteuert werden muß.