unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class (TForm) Timer1: TTimer; procedure FormCreate (Sender: TObject); procedure Timer1Timer (Sender : TObject); private {Private declarations} public {public declarations} end; Const WS_EX_LAYERED = $ 00080000; LMA_COLORKEY = $ 00000001; LMA_ALPHA = $ 00000002; var Form1: TForm1; Step: integer; implementation {$ R * .dfm} procedure TForm1.FormCreate (Sender: TObject); var ExtStyle: LongInt; begin Step: = 255; ExtStyle: = GetWindowLong (Handle, GWL_EXSTYLE); SetWindowLong (Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED); end; procedure TForm1.Timer1Timer (Sender: TObject); Begin if step: = step: = step-10; setlayeredWindowAttributes (Handle, RGB (0, 0), Step, LMA_ALPHA or LMA_COLORKEY); Else Begin SetlayeredWindowAttributes (Handle, RGB (0, 0, 0), 255, 1); Timer1.enabled: = false; end; end; end.
