动态生成的控件如何响应鼠标事件

韩冰

生成控件,然后设定控件对应的单击函数和双击函数

void __fastcall myImageClick(TObject *Sender)

( X9 U2 k! G8 C4 H9 M5 {; f

{

7 n' N8 b+ D$ @- t5 _( A

do what you want to do

- g! I/ T- P% Y& o# T X5 [$ P4 ~$ l

}

1 H" S8 S& `+ i7 A( {& g: l

TImage myImage=new TImage();

/ [1 ?) T) ^2 P; {" V5 I+ o

myImage->parent=this;

myImage->left=??

6 \5 o M/ j. @# p8 U8 f; l9 _/ n

myImage->top=??

5 V/ b3 `. q9 A4 Y ~& ?' Y* Y+ I

myImage->width=;

myImage->Height=;

9 C$ ^) W2 \+ V# u( ?- T2 E

myImage->visible=true;

myImage->OnClick=myImageClick;//动态绑定事件

7 o+ e9 c+ E; z Z4 m" b+ j( y

双击也类似