|
) Y" b4 J. s* k2 e
生成控件,然后设定控件对应的单击函数和双击函数
. J* k1 K7 E7 S# Pvoid __fastcall myImageClick(TObject *Sender) : d7 v) ^% G; X* A* S9 X/ }. Z
{
7 }- L$ e! Z' p* V do what you want to do
2 k4 ]5 ?9 a5 M) q1 J Y} 7 k4 D* ?" S9 j; Y7 Z$ p' R. k
TImage myImage=new TImage();
+ k0 M' _2 ?+ F+ }0 E NmyImage->parent=this; / `" D" f q) `/ V
myImage->left=??
$ [2 T6 _6 P1 |3 DmyImage->top=??
" {4 J" L* O1 w; `+ ?- Q# u+ l# }myImage->width=; : b4 V& s! X* L0 R e: o% a" q
myImage->Height=;
1 ]8 r# {' G/ }" Y& ~! ^myImage->visible=true;
3 w% K% e" V4 EmyImage->OnClick=myImageClick;//动态绑定事件
# |: V2 C2 r% O8 T5 J- @双击也类似 |