摘要: 1 procedure Form1.TestClick(Sender: TObject); 2 var 3 TestBtn1,BtnTemp:TButton; 4 begin 5 6 {第一步:创建一个Button,令指针TestBtn1指向这个在堆中开辟的内存区。} 7 ////////////////////////////////////////////////... 阅读全文
posted @ 2019-03-10 21:09 谷谷非鼠 阅读(210) 评论(0) 推荐(0) 编辑