Tbitmap数组的问题请教? (10分)

  • 主题发起人 主题发起人 foxgirl
  • 开始时间 开始时间
F

foxgirl

Unregistered / Unconfirmed
GUEST, unregistred user!
var
i,j,idx:integer; needmove:array of Tbitmap;
begin
j:=imageenmview1.MultiSelectedImagesCount;
setlength(needmove,j );
idx:=ImageEnMview1.ImageAtPos(x,y) ;
if ((button=mbleft) and (idx<>-1) and (idx<>idx_0) and moved) then
begin
for i:=0 to imageenmview1.MultiSelectedImagesCount -1 do
begin
needmove:=ImageEnMView1.GetBitMap(i) ;//这样可以存入bitmap数组中吗?
imageenmview1.ReleaseBitmap(i);
end;

imageenmview1.DeleteSelectedImages ;
for i:=low(needmove) to high(needmove)-1 do
begin
imageenmview1.InsertImage (idx-j+1);
imageenmview1.SetImage(idx-j+1,needmove);//可以这样读取吗?
end;

needmove:=nil;
moved:=false;
end;
end;
 
大概要
needmove:=TBitmap.Create;
needmove.Assign(ImageEnMView1.GetBitMap(i) );
...........
最后记得needmove的每个元素都要 needmove[x].Free
 
谢谢pp,已搞定
 

Similar threads

I
回复
0
查看
593
import
I
I
回复
0
查看
457
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部