想不想另图片有另一番效果,使用下列语句实现吧,增加两个TImage图片框,分别为Image1、Image2,用Image1引入一张图片,按下按钮就可以在Image2上出现惊人的效果:
procedure TForm1.Button1Click(Sender: TObject);beginImage2.Canvas.Brush.Style := bsCross;Image2.Canvas.CopyMode := cmMergeCopy;Image2.Canvas.Draw(0,0, Image1.Picture.Graphic);end;[ 查看全文 ]