如何让子类不继承父类或者祖先的"某些"特性？也就是“不完全”继承呢？ ( 积分: 100 )

G

g00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-08

• #1

举个例子，Tmemo组件,double click的event里写这么一行：application.minimize;
运行时发现，代码虽然被执行了，但并没有最小化，只是seltext。
应该是继承了父类或者祖先的double click,可是为什么不响应application.minimize呢？
怎么样在这种情况下“不”继承，而只响应自定义的代码？

 

G

g00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-08

• #2

举个例子，Tmemo组件,double click的event里写这么一行：application.minimize;
运行时发现，代码虽然被执行了，但并没有最小化，只是seltext。
应该是继承了父类或者祖先的double click,可是为什么不响应application.minimize呢？
怎么样在这种情况下“不”继承，而只响应自定义的代码？

 

J

jxyghm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-08

• #3

有没有写Inherited;

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-08

• #4

你分全部给我，加QQ群17885119我告诉你

 

G

g00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-09

• #5

写了Inherited;但还是一样不行。
我很少QQ的，回答在这里吧，谢谢！

 

D

dyfh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-09

• #6

写Inherited不是代表继承吗？不写的话应当可以只执行自定义代码了吧

 

D

dreamisx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-09

• #7

估计是Memo拦截了消息，告诉你一个偏方：
在窗体上放个Timer组件，将其Enabled 设为False,Interval设为400(比鼠标双击最大间隔时间大些），然后实现代码如下：
procedure TForm1.Memo1DblClick(Sender: TObject);
begin
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Application.Minimize;
end;

 

J

jxyghm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-09

• #8

你根本不用继承，本身Memo的问题

 

G

geoffrey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-09

• #9

不要用application.minimize;
试试这样:
ShowWindow(Application.handle, SW_Minimize);

 

G

g00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-09

• #10

哈哈，好使，谢谢啊，给分了。。。