P
programsky
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure tform1.neimage(h,w:integer);
var newimage:array[1..200] of Timage;
begin
newimage[10*w+h]:=timage.create(self);
with newimage[10*w+h] do begin
parent:=self;
tag:=h+w;
Width:=39;
Height:=50;
top:=50*h+8;
left:=39*w+10;
onclick:=imgonclick;
end;
end;
怎样在imgonclick过程中区别不同的image控件
var newimage:array[1..200] of Timage;
begin
newimage[10*w+h]:=timage.create(self);
with newimage[10*w+h] do begin
parent:=self;
tag:=h+w;
Width:=39;
Height:=50;
top:=50*h+8;
left:=39*w+10;
onclick:=imgonclick;
end;
end;
怎样在imgonclick过程中区别不同的image控件