delphi ÔÚformÉÏ»­Í¼ÏñÖ®ºóÔõÑù±£´æÏÂÀ´

ÓÃcanvasÔÚformÉÏ»­Í¼ÏñÖ®ºó£¬ÔõÑù±£´æÏÂÀ´£¬±£´æΪbmp¡¢jpg¶¼ÐÐ

---

ÒýÓÃ

»­ÔÚ image.picture.bitmapÉÏ

procedure TForm1.Button1Click(Sender: TObject);

  var
      bmp:  TBitmap;
      rgn:  HRGN;
  begin
      bmp  :=  TBitmap.Create;
      try
          bmp.LoadfromFile('D:\ÃâÒßÉøÂÊͼÏñ\ͼƬ 004.BMP');    //  ÄãÏëÏÔʾµÄͼƬ

          rgn  :=  CreateEllipticRgn(126,106,442,422);
          if  rgn  <>  0  then  begin
              try
                  SelectObject(Canvas.Handle,  rgn);
                  Canvas.Draw(0,0,bmp);
              finally
                  DeleteObject(rgn);
              end;
          end;
      finally
          bmp.Free;
      end;
end;
ÓÃÉÏÃæµÄ´úÂë¿ÉÒÔÔÚformÖл­³