2012年8月31日
获得窗口句柄
摘要： procedure TForm1.Timer1Timer(Sender: TObject); var handle,hchild1,hchild2:THandle; point:TPoint; temp:array[0..255] of char; begin ://取得当前鼠标的位置 GetCursorPos(point); //取得... 阅读全文
posted @ 2012-08-31 15:10 realnull 阅读(253) 评论(0) 推荐(0) 编辑
获得属性（rtti）
摘要： 1: procedure GetBaseClassPro(AClass : TObject;Astrings : TStrings); //获得属性信息 2: var 3: NumPro : integer; //用来记录事件属性的个数 4: Pplst : PPropList; //存放属性列表 5: Classtypeinfo : PTypeInfo; 6: cl... 阅读全文
posted @ 2012-08-31 10:32 realnull 阅读(296) 评论(0) 推荐(0) 编辑