Delphi-Quellcode:
var
iStyleEx: cardinal;
begin
iStyleEx := GetWindowLong(
Handle, GWL_EXSTYLE);
iStyleEx := iStyleEx
or WS_EX_LAYERED;
SetWindowLong(
Handle, GWL_EXSTYLE, iStyleEx);
end;
heißen, sry
und
SetLayeredWindowAttributes(
Handle, clLime, 0, LWA_COLORKEY);
<
msdn>
Delphi-Quellcode:
function SetLayeredWindowAttributes(
// Handle to the layered window.
Wnd: hwnd;
// Pointer to a COLORREF value that specifies the transparency
// color key to be used when composing the layered window
crKey: ColorRef;
// Alpha value used to describe the opacity of the layered window
Alpha: Byte;
// Specifies an action to take
// LWA_COLORKEY or LWA_ALPHA
// This parameter can be one or more of the following values:
dwFlags: DWORD): Boolean;
stdcall;
external '
user32.dll';
</
msdn>
[edit]blubb, thx freak[/edit]