怎么修改原来标准组件的属性的默认值 ( 积分: 100 )

S

shaken

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-29

• #1

ToolBar是delphi自带的一个组件，这个组件的一个属性(showcaptions)的默认值是False，怎么样才能将其默认值改为True，有两个方法我知道的，采用第三方控件和改写delphi的source，请不要重复。能不能写一个自定义组件ToolBar，所有属性与delphi的标准组件一致，但是默认值与标准组件稍微不同。是采用继承toolbar还是直接从Toolwin继承一个来写，应该怎么写？

 

S

shaken

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-29

• #2

ToolBar是delphi自带的一个组件，这个组件的一个属性(showcaptions)的默认值是False，怎么样才能将其默认值改为True，有两个方法我知道的，采用第三方控件和改写delphi的source，请不要重复。能不能写一个自定义组件ToolBar，所有属性与delphi的标准组件一致，但是默认值与标准组件稍微不同。是采用继承toolbar还是直接从Toolwin继承一个来写，应该怎么写？

 

W

wanghaiou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-29

• #3

不知道你完成这个功能有什么意义，理论上是可以实现的，那就需要自己做一个组件了，很多delphi书中有介绍组件的开发，我认为对于一个Delphi程序员来说应该不是很难的事情！

 

P

plzw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-29

• #4

从 ToolBar 继承，然后在创建的时候设置默认值就可以了。

 

S

shaken

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-29

• #5

to plzw，怎么在“创建的时候设置默认值”？？

 

R

reedblue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #6

TMyToolsBar = class(ToolBar)
private
...
protected
...
public
constructor Create(AOwner: TComponent); override;
...
end;

implementation

uses
.....

constructor TMyToolsBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//在这里写你的代码，想怎么写就怎么写。
end;

 

S

shaken

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #7

嗯，重载构造函数也是一种方法。

 

S

shaken

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-11

• #8

很失望，不过还是结贴。