原理见 http://202.38.73.222/~pjf/blog/archives/000040.html 代码如下 : : =========== Form1.dfm ============ == Objeto Form1: TForm1 esquerda = 192 superior = 107 largura = 396 altura = 261 Legenda = 'form1' cor = clbtnface font.charset = default_charset font.color = clwindowtext font.height = -11 font.name = ms sans 'Font.style = [] OldCreateOrder = false onCreate = FormCreate OnDestroy = FormDestroy PixelsPerinch = 96 Textheight = 13 Objeto Button1: Tbutton esquerdo = 0 topo = 152 Largura = 89 altura = 25 legenda =' carregar 'Taborder = 0 OnClick = Botão de botão. Memoratório de objeto1: tmemo esquerda = 0 topo = 0 largura = 385 altura = 145 scrollbars = ssboth taborder = 1 botão do objeto final2: tbutton esquerda = 0 topo = 184 largura = 89 altura = 25 legenda = 'Button2' Taborder = 2 OnClick = Button2click Botão do objeto final3: tbutton à esquerda = 120 topo = 184 largura = 89 altura = 25 legenda = 'Button3' Taborder = 3 OnClick = Button3Click final final =========