问个问题如果动态创建了image对象怎么在调用他的拖动事件啊 ( 积分: 50 )

N

narcisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-14

• #1

TAImage=Array of TImage;

ImageList:TAImage;

self.ImageList[0]:=TImage.Create(self)
这样创建image有什么错阿
self.ImageList[0]:=TImage.Create(self)老说有问题
还有就是动态创建了图片之后怎么调用他的拖动处理函数阿

 

N

narcisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-14

• #2

TAImage=Array of TImage;

ImageList:TAImage;

self.ImageList[0]:=TImage.Create(self)
这样创建image有什么错阿
self.ImageList[0]:=TImage.Create(self)老说有问题
还有就是动态创建了图片之后怎么调用他的拖动处理函数阿

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-14

• #3

procedure TForm1.Button1Click(Sender: TObject);
type
TAImage=Array[0..100] of TImage;
var
ImageList:TAImage;
begin
ImageList[0]:=TImage.Create(self);
end;

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-14

• #4

TAImage=Array of TImage;

ImageList:TAImage;
SetLength(ImageList,1);//使用之前需要先分配数组空间，这是分配一个
self.ImageList[0]:=TImage.Create(self)
这样创建image有什么错阿
self.ImageList[0]:=TImage.Create(self)老说有问题
self.ImageList[0].onDragxxxx:=procedure()你自己定义的拖动过程

 

Q

qingwen07

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-14

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
image:TImage;
begin
image:=TImage.Create(self);
image.Parent:=Self;
image.Height:=200;
image.Width:=200;
image.Canvas.TextOut(10,10,'hello');
image.Visible:=true;
image.OnClick:=MyOnClick;

end;

procedure TForm1.MyOnClick(Sender: TObject);
begin
ShowMessage('Ok');
end;

给你个单击事件的参考一下吧!

 

N

narcisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-15

• #6

知道了
谢谢