实现窗口从实变透明到消失这是一个例子

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>0 then begin step:=step-10; setlayeredwindowattributes(handle, rgb(0,0,0), step, lma_alpha or lma_colorkey); end else begin setlayeredwindowattributes(handle, rgb(0,0,0), 255, 1); timer1.enabled:=false; end; end; end.