2009年12月16日
摘要: procedure TForm1.Button1Click(Sender: TObject);var TName : Tclass;begin ListBox1.Clear;//要先注册类,才能使用GetClass RegisterClasses([TButton,TEdit,TListBox,TRadioButton, TPanel]); TName := GetClass(Edit1.Tex... 阅读全文
posted @ 2009-12-16 12:59 橫龙村夫 阅读(1258) 评论(4) 推荐(0) 编辑