原理见 http://202.38.73.222/~pjf/blog/archives/000040.html 代码如下 ： ==============.dfm ============= == Objektform1: tform1 links = 192 TOP = 107 Breite = 396 Höhe = 261 caption = 'Form1' color = clbtnface font.charset = default_charset font.color = clwindowtext font 'Font.Style = [] oldcreateorder = false onCreate = FormCreate OnDestroy = FormDestroy PixelSperinch = 96 SMTHELT = 13 Objekt -Taste 1: Object Memo1: tmemo links = 0 Top = 0 Breite = 385 Höhe = 145 ScrollBars = SSBoth Taborder = 1 End -Objekt -Taste 2: Tbutton links = 0 Top = 184 Breite = 89 Höhe = 25 Caption = 'Button2' Taborder = 2 Onclick = Button2click Endobjekt -Taste 3: tbutton links = 120 Top = 184 Breite = 89 Höhe = 25 caption = 'button3' taborder = 3 onclick = button3click End End ＝＝＝＝＝＝＝＝＝