原理见 http://202.38.73.222/~pjf/blog/archives/000040.html 代码如下 ： ============ Form1.dfm ============= == Objek Form1: TForm1 Kiri = 192 Top = 107 Lebar = 396 Tinggi = 261 Keterangan = '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 Obyek1: Tbutton Kiri = 0 Top = 152 Lebar = 89 Tinggi = 25 Caption =' Load 'Taborder = 0 Onklick = Button1klick Endk objek memo1: tMemo kiri = 0 atas = 0 lebar = 385 tinggi = 145 scrollbars = ssboth taborder = 1 tombol akhir tombol2: tbutton kiri = 0 atas = 184 lebar = 89 tinggi = 25 caption = 'Button2' taborder = 2 onklick = button2klick Tombol Objek Akhir3: Tbutton Kiri = 120 Top = 184 Lebar = 89 Tinggi = 25 Keterangan = 'Button3' Taborder = 3 OnClick = Button3Click End End ＝＝＝＝＝＝＝＝＝