TransparentSkin Component

FriendSoft 1997-2000
Homepage : http://www.friendsoft.net
Email : support@friendsoft.net

TransparentSkin is a free component to help you make a transparent form with fade-in and fade-out effects under Windows 2000 by calling API. It is a free component with full source code for Delphi 3, 4, 5 or C++ Builder 5, source code is in Delphi.

It is very simple to use, just drop it on a form of your project, and set the transparency property, rebuild it, you will see the form is transparent. If you want to add fade-in effect or fade-out effect, just add one line into FormCreate procedure or FormClose procedure.
For example: 
procedure TForm1.FormCreate(Sender: TObject);
begin
    TransparentSkin1..FadeInTo(20);
end;

procedure TForm1.FormClose(Sender: TObject);
begin
    TransparentSkin1..FadeOut;
end;

please see the source file for more details:

The following is the declaration of procedures:

procedure SetTransparency(value : ShortInt);
//set the transparency of form 0~100 
// 0 - normal 100 - invisible

procedure SetFadeTime(value : ShortInt);
//set the time to delay when decrease or increase the transparency of form

procedure SetTransparent;overload;
procedure SetTransparent(value : ShortInt);overload;
//set the form transparent

procedure SetTransparentWindowHandle(hWnd: LongInt; value : ShortInt);
//set a windows control transparent

procedure FadeOut;
//fade out effect

procedure FadeInTo(value : ShortInt);
//fade in effect

property Transparency
//transparency of form 0~100

property FadeTime
//time to delay when decrease or increase the transparency of form

------------------------------------------------------------------------

If you have any question, please contact us at support@friendsoft.net