引言： 第二部分：基类 TCodeColor
一、本章说明 暂时先公开基类代码，和子类的部分代码，子类中字符分析函数 Analyzer 的实现暂时不公开，主要出于这样的考虑： 1、基类已实现大部分共用功能，但是还不完善，代码也不规范。
摘要：unit mlde32unit;
//micro length disassembler engine
interface
//作者忘记了，不好意思。好像出自29a-7。
//sorry, author!
function lde32(opcode: pointer): integer;
implementation
function lde32(opcode: ......
摘要：uses ..., typinfo;
function tform1.isapropexist(ainst: tobject; const propname: string): boolean;var propinfo: ppropinfo;begin result := false; propinfo := getpropinfo(ainst, propname); if propinfo &......
CodeColor相关（二） 基类TCodeColor
上一页 ...
二.用户端
很简单,不做过多说明: 【程序编程相关:
Delphi 7 中使用RAVE报表（三】 【推荐阅读:
设计模式之singleton
】 【扩展信息:
delphi8里在VCL.net使用Ad】
//┏━━━━━━━━━━━━━━┓
//┃代码着色:codecolor v1.0 ┃ //┃来自:悄然无声的 blog ┃ //┗━━━━━━━━━━━━━━┛ procedure tfrmmain.button1click(sender: tobject); var cc:tcodecolor; begin cc:=tcc_delphi.create(gainsboro,720); cc.source:=memo1.text; cc.processor; memo1.text:=cc.output; memo1.lines.savetofile(result.htm); end;
摘要：来源：delphi园地
不知道大家在使用qq时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。getcursorpos()是一个可以获得鼠标指针在屏幕中的坐标的api函数，利用它与findvclwindow()的结合就可以轻易地获得鼠标指针下的vcl可视组件，但当一个窗体中不只一个vcl可视组件，例如可能还有tpanel、t......
