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.