|
4 D3 [, S7 ~+ A: J; h2 @ t
生成控件,然后设定控件对应的单击函数和双击函数 . G" k# u: C- @. ]$ O; g
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: lTImage myImage=new TImage();
/ [1 ?) T) ^2 P; {" V5 I+ omyImage->parent=this; 9 C" q$ ]& [0 h8 o4 u
myImage->left=??
6 \5 o M/ j. @# p8 U8 f; l9 _/ nmyImage->top=??
5 V/ b3 `. q9 A4 Y ~& ?' Y* Y+ ImyImage->width=; . R5 G2 m7 U) N! j
myImage->Height=;
9 C$ ^) W2 \+ V# u( ?- T2 EmyImage->visible=true; # ^/ N8 Y% a3 n1 H8 t* b3 }( Q: O( \
myImage->OnClick=myImageClick;//动态绑定事件
7 o+ e9 c+ E; z Z4 m" b+ j( y双击也类似 |