Display transparent images on desktop

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.

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

procedure TForm1.FormCreate(Sender: TObject);
begin
     { Set transparent background }
     Brush.Style:=bsClear;

     { Hide image at start up }
     Image1.Visible := False;
end;

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

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

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

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

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

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

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.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
     { Clear the previous image }
     Image1.Picture:=Image2.Picture;

     { Randomly assigned a image from image list
     GetBitmap - Retrieves a specified image as a bitmap.}
     ImageList1.GetBitmap(Random(10), Image1.Picture.Bitmap);

     { Set new image position at cursor }
     Image1.Top := Y - Round(Image1.Height / 2);
     Image1.Left := X - Round(Image1.Width / 2);
end;

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: 474, 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 !

Leave a comment