procedure TForm1.FormCreate(Sender: TObject);
var
ExSty:DWORD;
begin
ExSty:=GetWindowLong(Handle,GWL_EXSTYLE);
ExSty:=ExSty or WS_EX_TRANSPARENT or WS_EX_LAYERED;
SetWindowLong(Handle,GWL_EXSTYLE,ExSty);
SetLayeredWindowAttributes(Handle,cardinal(clBtnFace),125,LWA_ALPHA);
MoveWindow(Handle,Screen.Width-Self.Width,0,Self.Width,Self.Height,false);
end;
试试,在Win2000\XP下有效果.