从TComboBox继承一个控件，析构的时候不能访问Items成员(50分)

B

Beast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #1

type
TstComboBox = class(TComboBox)
published
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('TestCompontent', [TstComboBox]);
end;
constructor TstComboBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
destructor TstComboBox.Destroy;
var
i :integer;
begin
for i:=0 to Self.Items.Count-1 do begin
Self.Items.Objects:=nil;
end;
inherited;
end;

 

M

mstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #2

destructor TstComboBox.Destroy;
var
i :integer;
begin
for i:=0 to Self.Items.Count-1 do begin
if Self.Items.Objects <> nil then
Self.Items.Objects.free ;
end;
inherited;
end;

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #3

destructor TstComboBox.Destroy;
var
i :integer;
begin
for i:=Self.Items.Count-1 downto 0 do begin
Self.Items.Objects:=nil;
end;
inherited;
end;

 

B

Beast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #4

faint！
楼上两位的代码一定是没有测试，我的帖子说访问Item成员的时候就会出错！

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #5

哈哈，确实没测试，我测试看看。

 

B

Beast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #6

多谢～～

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #7

就是，连访问SelLength属性也要出错，说没有父窗。关注中

 

B

Beast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-13

• #8

faint，这样一个问题居然没有人能搞定？？？？[]

 

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-13

• #9

你Create的时候没有设置parent。
这样就可以了：
procedure TForm1.btn1Click(Sender: TObject);
var
dd:TstComboBox;
begin
dd:=TstComboBox.Create(self);
dd.Parent:=form1;
dd.Items.add('adfasdfafd');
dd.Free;
end;

跟你的控件没有关系。如果你改成Tcombobox也是一样。

 

B

Beast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-13

• #10

看来楼上兄弟是没有仔细看我的发问。

我是做了一个控件，拖到Form上的，不是动态创建的。

你理解错了。

 

C

coldew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-13

• #11

是的，你不要在析构函数里访问。
你可以在DestroyWnd中释放掉了。

 

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-13

• #12

如果你要在析构函数里访问的Items属性，你应该重写CreateParams
可以看看TWinControl的CreateWnd
procedure TTestComboBox.CreateParams(var Params: TCreateParams);
begin
inherited;
if (Parent = nil) and (csDestroying in ComponentState) then
Params.Style := Params.Style and (not WS_CHILD);
end;
这样就可以在析构函数里面访问了
destructor TTestComboBox.Destroy;
begin
ShowMessage(Items[0]);
inherited;
end;

另外的解决的方法就是coldew说的了，（注释掉了析构函数）
TTestComboBox= class(TComboBox)
protected
//procedure CreateParams(var Params: TCreateParams); override;
procedure wmdestroy(var message : TMessage); message WM_DESTROY;
public
//destructor Destroy; override;
end;
procedure TTestComboBox.wmdestroy(var message: TMessage);
begin
ShowMessage(Items[0]);
inherited;
end;

 

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-13

• #13

哦，原来如此。看错了

 

D

dreamer567

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-13

• #14

搬板凳，怎么今天我不能收藏了？

 

B

Beast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #15

接受答案了.