引言： 摘 要：不需要修改源代码或在部件面板中注册派生部件就能为部
关键字：delphi delphi3000 方法 派生 继承&n
类 别：Object Pascal
有没有办法不需要修改源代码或安装派生部件就能增加新的方法和属性？
增加新的方法和属性
-----------...
摘要：uses unit2;
procedure tform1.button1click(sender: tobject);
begin
form2.show;
form2.windowstate := wsmaximized;
form2.mediaplayer1.notify := false;
form2.mediaplayer1.display := form2.panel......
摘要：首先申明:我是菜鸟,我只不过想把困绕了我很长时间的问题的解决方案发表出来，免得以后我又忘记,同时给还不知道这些小知识的同僚一些帮助。各位不要笑我的浅薄。同时为了表示我的低级，我会很罗嗦的讲一些基本的东西，这些都是我的理解,很不准确。
用我的方法来控制其他程序窗体上的窗口控件，必须先了解什么是回调函数。我的理解是这样的：
回调函数写出来不是自己的程序去调用的，反而是让其他的东西去调用，比如win......
不用注册新部件就能增加新的方法和属性摘 要:不需要修改源代码或在部件面板中注册派生部件就能为部
关键字:delphi delphi3000 方法 派生 继承&n 【程序编程相关:
Delphi数学运算函数】 【推荐阅读:
使用delphi来实现三种功能】
类 别:object pascal 【扩展信息:
Delphi中ListBox控件的六种特】
有没有办法不需要修改源代码或安装派生部件就能增加新的方法与属性?
增加新的方法与属性
---------------------------------
有时我们要为已有的部件增加新的方法与属性（或改变已有属性的可视性）.一个方法是修改部件,但这意味着对它的package重新编译,而且如果要其它人也编译我们的应用程序,就要把我们的变动重新发布,这样对方就很麻烦.有时我们不能这样做,因为我们可能没有源代码.这样的话.最好对部件进行派生,并加入新的属性与方法.例如:
type
teditx = class(tedit)
public
function getforecolor: tcolor;
procedure setforecolor(color: tcolor);
property forecolor: tcolor read getforecolor write setforecolor;
end; ...
下一页 摘要：参见以下代码：
var
form1 : tform;
hookid : thandle;
disablerbutton : boolean;
implementation
function mouseproc(ncode: integer; wparam,
lparam: longint): longint; stdcall;
function getclassnameenh(handle:......
