Forum: Multimedia
Delphi
by SirThornberry,
23. Mär 2005
Dann gehts mit folgender Funktion
function SetFormTransparent(AFormHandle: HWnd; ATransparentColor: TColor): Boolean;
const
WS_EX_LAYERED = $00080000;
LWA_COLORKEY = $00000001;
var LStyle: Integer;
LDLLHandle: Cardinal;
LSetLayerdProc: function (Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; stdcall;
begin
Forum: Multimedia
Delphi
by SirThornberry,
22. Mär 2005
Also willst du das Form vollständig transparenzt haben und nicht halbdurchsichtig? (Das das Bild gar nicht durchsichtig werden soll ist klar).
Forum: Multimedia
Delphi
by SirThornberry,
20. Mär 2005
es gäbe noch die variante das du ein zweites formular machst was du dann an der entsprechenden Stelle über dem ersten plazierst.
Forum: Multimedia
Delphi
by SirThornberry,
20. Mär 2005
willst du das Form vollständig durchsichtig oder nur zum teil? Wenn du es nur teilweise durchsichtig haben willst dann geht das was du vor hast nicht.
Forum: Multimedia
Delphi
by SirThornberry,
20. Mär 2005
mit folgendem source
function SetFormTransparent(AFormHandle: HWnd; ATransparentVal: Byte): Boolean;
const
WS_EX_LAYERED = $00080000;
LWA_ALPHA = $00000002;
var LStyle: Integer;
LDLLHandle: Cardinal;
LSetLayerdProc: function (Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; stdcall;
begin