Alphablend?

[MathiasSimmack]

Gibt´s eigentlich einen Grund, das ins "interface" zu schreiben?`

Zitat von DelphiDeveloper:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

const
  WS_EX_LAYERED = $80000;
  LWA_COLORKEY = 1;
  LWA_ALPHA = 2;

type
  TSetLayeredWindowAttributes = function(
    hwnd: HWND; // handle fuers fenster
    crKey: TColor; // die farbe
    bAlpha: byte; // wert fuer die blend funktion
    dwFlags: DWORD //
    ): BOOL; stdcall;


{ ... }

implementation


{ ... }

end.

Wenn du´s nicht außerhalb der Form noch mal brauchst, dann passt es sehr schön in den "implementation"-Teil der Unit.

Als Alternative noch eine extra Unit zum einfacheren Wiederkäu... äh -verwenden des Codes.