如何给控件增加事件？为什么我的程序在逐步执行时要跟踪到VCL源代码？(50分)

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-05

• #1

1、如何以最简单的方式给控件增加事件，如OnMouseDown, OnMouseUp等？
2、我继承了一个TrackBar控件并安装，加入了以上两个事件，但到按F7逐
步执行程序时，它家伙竟然跟踪VCL原代码去了，害得我跑出十万八千里却
不得见面前的东西，我该怎么办？

 

O

OpuBF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-06

• #2

OnMouseDown, OnMouseUp事件是由TControl继承下来的，在Published里公布出来就是了
………………
published
property OnMouseDown;
property OnMouseUp;
………………
这也是你跟踪VCL原代码去的原因

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-06

• #3

我现在不想跟踪VCL源代码，该怎么办？现在搞得我几乎无法调试程序了。

 

Z

zensst

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-18

• #4

不要将VCL的源码拷贝到当前目录中，或在BroseLibPath中将VCL/的路径去掉

 

O

OopsWare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-19

• #5

在VCL源码中加以下行
{$D-}
重新编译VCL，问题不会出现!

 

S

snowtree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-19

• #6

调试时稍微注意一下方法就应该没事!!!

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-19

• #7

终于找到了一份能用的Delphi5，我把Delphi4卸了重装5才得以解决。但是现在想
找回这个故障却也难了。
OopsWare: {$D-}这个标志起什么作用？

 

O

OopsWare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-20

• #8

禁止单步运行时，跟踪VCL。