H
hunyuan
Unregistered / Unconfirmed
GUEST, unregistred user!
1、动态创建Image，因为不知道要用的个数，几个到几十个不等，
能否只创建一次，然后在Form上同时在不同位置显示？如果不能，我必须得创建几十个Image吗？
2、如何实现Image的闪动效果(棋子被吃时的动态显示）？怎么处理效果理想？
3、为何动态创建的Image释放出错？代码如下：
procedure TfrmMain.AllFree();
var i:Integer;
begin
try
for i:=0 to 9 do
begin
if Assigned(imgZhi) then
imgZhi.Free;
if Assigned(imgXie) then
imgXie.Free;
if Assigned(imgSan) then
imgSan.Free;
if Assigned(imgJiu) then
imgJiu.Free;
if Assigned(imgPalace) then
imgPalace.Free;
end;
{for i:=1 to 2 do
begin
imgZhi.Free;
imgJiu.Free;
end;
for i:=1 to 4 do
begin
imgXie.Free;
imgSan.Free;
end;
for i:=1 to 6 do
begin
//imgDoor.Free;
imgPalace.Free;
end;}
except
end;
end;
因为前面程序可能做过释放操作了，所以在这里经常出错，
我用Assigned(…) 判断了，为什么还出错？
这个过程放在Form的Destroy过程，和重新开始、结束一局棋的过程中，
经常报错啊。当然脱离Delphi环境运行可以，可是这个问题解决啊！！！
非常感谢了！都是Delphi发烧友，帮我一把吧！！！！5555