Transparente Form

[barf00s]

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]