Display transparent images on desktop

This Delphi graphic tutorial shows how to display a transparent image on desktop. Main technique we using here is full screen transparent form and then place image object on form. By few simple changes you can create various effect like generating mouse trail and more.

Download This Tutorials

Bookmark:

Display transparent images on desktop

Click anywhere on the desktop to show an image (flower) at mouse position. Basically what this program does is using full screen transparent form, put a transparent bitmap image on mouse position. Once you go through this program you may amaze how easy to write this program.

Draw crosshair on form

Use following commands to make transparent form and hide the image at start up.

1procedure TForm1.FormCreate(Sender: TObject);
2begin
3     { Set transparent background }
4     Brush.Style:=bsClear;
5 
6     { Hide image at start up }
7     Image1.Visible := False;
8end;

This one put the flower (bitmap image) at mouse position.

1procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
2Shift: TShiftState; X, Y: Integer);
3begin
4     { Show image at current cursor position }
5     Image1.Top := Y - Round(Image1.Height / 2);
6     Image1.Left := X - Round(Image1.Width / 2);
7     Image1.Visible := True;
8end;

You can do few changes to generate images randomly on screen using system timer.

1procedure TForm1.Timer1Timer(Sender: TObject);
2begin
3     Image1.Top:=Random(Screen.Height);
4     Image1.Left:=Random(Screen.Width);
5end;

If you like to generate mouse trail effect by placing images on screen, use following method.

1procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
2begin
3     { Set new image position at cursor }
4     Image1.Top := Mouse.CursorPos.Y - Round(Image1.Height / 2);
5     Image1.Left := Mouse.CursorPos.X - Round(Image1.Width / 2);
6end;

If you like to generate mouse trailer effect by placing different images on screen, use following method. Show varies flowers as user move mouse. Flower are changed randomly as user move mouse. All the images are stored in ImageList components.

01procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
02begin
03     { Clear the previous image }
04     Image1.Picture:=Image2.Picture;
05 
06     { Randomly assigned a image from image list
07     GetBitmap - Retrieves a specified image as a bitmap.}
08     ImageList1.GetBitmap(Random(10), Image1.Picture.Bitmap);
09 
10     { Set new image position at cursor }
11     Image1.Top := Y - Round(Image1.Height / 2);
12     Image1.Left := X - Round(Image1.Width / 2);
13end;

Download This Delphi Tutorials.

Download materials for this article (Delphi - Tutorials)

display-image-on-desktop.zip
       File size: 32 KB, File type: zip
       Total downloads: 475, Upload date: February 11 - 2009

display-images-randomly-on-desktop.zip
       File size: 33 KB, File type: zip
       Total downloads: 257, Upload date: February 11 - 2009

image-mouse-trail.zip
       File size: 32 KB, File type: zip
       Total downloads: 259, Upload date: February 11 - 2009

random-images-mouse-trail.zip
       File size: 313 KB, File type: zip
       Total downloads: 242, Upload date: February 11 - 2009

YES, I accept the Terms and Conditions and I acknowledge that I have reviewed and understood the agreement.

dohab :: April 26-2010 :: 05:56 PM

you are the man! It's perfect !

Display transparent images on desktop

Display transparent images on desktop

Display transparent images on desktop

Bookmark:

Display transparent images on desktop

Download This Delphi Tutorials.

dohab :: April 26-2010 :: 05:56 PM

Leave a comment