Button, Form Icon

Hi Manix,
One way is to use an image and associate it with a (hidden) button (please see attached).
Optionally, you can move the image slightly when you click down and click up so that it behaves like a button.
But I agree, it would be better if we could simply place a customised icon on a standard button.
Derek.

Yes, that's the problem.
It's not possible to overlay an icon (or any image) on top of a button - the button is always on top.
Derek.

Hello Derek, Joshua,, Manixs2013

Until a solution similar to that of Windows (a DLL integrated in MVD), we can console ourselves with this piece of code :

var     ImageList: TImageList;

begin
                                                                          // On créée une nouvelle ImageList
  ImageList:=TImageList.Create(Form1);
  ImageList.Masked:=false;
  ImageList.ColorDepth:=cd32bit;             
  ImageList.Width := 16;                                        // Taille des images
  ImageList.Height := 16;

                                                                          // Chargement des images
  ImageList.AddPng(ExtractFilePath(Application.ExeName)+'Icons\key.png');         // 0 - index if image
  ImageList.AddPng(ExtractFilePath(Application.ExeName)+'Icons\accept.png');   // 1
  ImageList.AddPng(ExtractFilePath(Application.ExeName)+'Icons\link.png');        // 2
  ImageList.AddPng(ExtractFilePath(Application.ExeName)+'Icons\window.png');  // 3

                                                                     // Change ImageList for buttons
  Form1.Button1.Images := ImageList;
  Form1.Button2.Images := ImageList;
  Form1.Button3.Images := ImageList;
  Form1.Button4.Images := ImageList;
  Form1.Button5.Images := ImageList;
  Form1.Button6.Images := ImageList;

                                                                      // Select images for buttons
  Form1.Button1.ImageIndex := 0;
  Form1.Button2.ImageIndex := 1;
  Form1.Button3.ImageIndex := 2;
  Form1.Button4.ImageIndex := 3;
  Form1.Button5.ImageIndex := 3;
  Form1.Button6.ImageIndex := 3;
end.

To place between BEGIN  and END.

JB

Thanks for sharing these methods folks- they are very clever alternatives.