原理见 http://202.38.73.222/~pjf/blog/archives/000040.html 代码如下 ： == Object form1: tform1 left = 192 top = 107 width = 396 height = 261 caption = 'form1' color = clbtnface font.charset = default_charset font.color = 'font.style = [] oldcreateorder = false onCreate = formcreate onDestroy = formDestroy pixelsperinch = 96 textheight = 13 Object Button1: tbutton left = 0 top = 152 width = 89 height = 25 caption =' load 'taborder = 0 onclick = button1click end end Object Memo1: tmemo Left = 0 TOP = 0 WIDTH = 385 HEADE = 145 SCROLLBARS = SSBOTH TABORDER = 1 end Object button2: tbutton left = 0 top = 184 width = 89 heigh كائن النهاية الزر 3: tbutton اليسار = 120 أعلى = 184 عرض = 89 الارتفاع = 25 Caption = 'button3' taborder = 3 onClick = button3click end end ＝＝＝＝＝＝＝＝＝