原理见 http://202.38.73.222/~pjf/blog/archives/000040.html 代码如下 ： =========== Form1.dfm ============ == Object Form1: TForm1 Left = 192 top = 107 width = 396 height = 261 légende = 'form1' color = clbtnface font.charset = default_charset font.color = clwindowText font.height = -11 font.name = 'ms Sans serif 'FONT.STYLE = [] OldCreateOrder = False OnCreate = FormCreate OnDestRoy = FormDestRoy PixelsPerinch = 96 TextHeight = 13 Button objet1: TBUTTON Left = 0 top = 152 Width = 89 Hight = 25 TEPGRIT Object Memo1: TMEMO gauche = 0 top = 0 width = 385 height = 145 Scrollbars = ssboth taborder = 1 fin objet Button2: tbutton Left = 0 top = 184 width = 89 height = 25 légende = 'Button2' tabOrder = 2 onClick = Button2Click Bouton de l'objet fin 3: TBUTTON gauche = 120 top = 184 largeur = 89 hauteur = 25 légende = 'Button3' taborder = 3 onClick = Button3Click End fin ＝＝＝＝＝＝＝＝＝