|
* z8 D7 m( s5 ^& @# E+ `4 R
生成控件,然后设定控件对应的单击函数和双击函数
! k1 t9 H9 [1 W9 w) Pvoid __fastcall myImageClick(TObject *Sender)
l; a$ W; I, s9 B9 k: E ~{ ' b: a* }) }" t; _! x
do what you want to do
: K0 _9 `2 R A) o; [) h# c, I}
/ k) V; A5 P! S0 L2 qTImage myImage=new TImage(); 9 j9 d& q2 \) b, k$ @2 U9 ^9 I) j
myImage->parent=this;
5 a/ a3 s3 e5 NmyImage->left=??
7 v! \7 I. D/ n, H, O( E( k3 |myImage->top=??
. q0 C+ n, g0 a) u1 q% u: k* zmyImage->width=; . }! \3 {1 f, _8 s2 d6 p. b
myImage->Height=; / ]/ w. k9 s) e4 L, a) h" p
myImage->visible=true; & G" Z1 s, d7 W* ^
myImage->OnClick=myImageClick;//动态绑定事件 ( U! ^; c" V" D- d$ E
双击也类似 |