Delphi 中 的 图 形 显 示 技 巧

领测软件测试网

newbmp.Free;
end;

---- 6. 积 木 效 果 

---- 积 木 效 果 是 雨 滴 效 果 的 一 种 变 化， 不 同 之 处 在 于， 积 木 效 果 每 次 搬 移 的 是 一 块 图 形， 而 不 只 是 一 行 像 素。 

---- 程 序： 


procedure TForm1.Button7Click(Sender: TObject);
var
 newbmp:TBitmap;
 i,j,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;

文章来源于领测软件测试网 https://www.ltesting.net/