原理见 http://202.38.73.222/~pjf/blog/archives/000040.html 代码如下 ： ============ Form1.dfm ============= == Forma de objeto1: TForm1 Left = 192 Top = 107 Width = 396 Height = 261 Tittion = 'Form1' color = Clbtnface Font.Charset = default_charset font.color = clwindowtext font.height = -11 font.name = 'ms sans sans sans 'Font.style = [] OldCreateRoRorder = false onCreate = formCreate onDestrOY = formDestrOY pixelSperiCh = 96 textheight = 13 Botón de objeto1: tbutton izquierdo = 0 top = 152 ancho = 89 altura = 25 Caption =' Load 'Taborder = 0 OnClick = Button1Click Fin Memo de objeto1: tmemo izquierda = 0 top = 0 ancho = 385 altura = 145 barras de desplazamiento = ssboth taborder = 1 end de objeto botón2: tbutton izquierdo = 0 top = 184 width = 89 altura = 25 subtítulos = 'button2' taborder = 2 OnClick = Button2Click Botón del objeto final3: tbutton izquierdo = 120 top = 184 ancho = 89 altura = 25 subtítulos = 'Button3' Taborder = 3 OnClick = Button3Click End End ＝＝＝＝＝＝＝＝＝