我自己写了一个类,在类里面创建了一个Label和一个Edit;
引用这个类,在按钮事件中声明这个类,使用,正常,
如果声明这个类为成员变量,使用就抛出异常,不只这是什么问题
引用这个类,在按钮事件中声明这个类,使用,正常,
如果声明这个类为成员变量,使用就抛出异常,不只这是什么问题
解决方案 »
- 用同样的SQL语句,在SQL PLUS里可以操作,但在delphi里却要报错。这是为什么?
- Indy TCP Server + ADO 服务程序的问题
- 99%是delphi BUG ! 不可思议!
- 多线程数据库操作存在内存泄露,还请高手帮忙.{代码在连接中}
- 如何在MDI窗体一侧制作自动隐藏窗体,效果像MaxThon的侧边栏效果
- 一个线程terminate后,好像只是free了,并没有把他变成nil。
- 奇怪的问题,有一个语句编译时认不出来!
- 调查一下在外地打工租房子的朋友都买了些什么电器家具?(附上本人的清单)
- activex 发布
- DELPHI收邮件问题。如有好的例程一定再加100分送上!
- 使用webbrower如何读取网页内一个变量或一个TEXT的值?
- Jet 的 OLE DB 访问 Excel 电子表格的问题
unit LongOilEdit;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;typeTLongOilEdit = class(TWinControl)private
m_Label:TLabel;
m_Edit:TEdit;
public
constructor Create(Owner:TWinControl;ComName:string) ;
destructor Destory;end;implementation
constructor TLongOilEdit.Create(Owner:TWinControl;ComName:string );
begin
// inherited Create(Owner);
m_Edit:=TEdit.Create(Owner);
m_Edit.Parent:=Owner;
m_Edit.Visible:=true;
m_Edit.Name:=ComName; m_Label:=TLabel.Create(Owner);
m_Label.Parent:=Owner;
m_Label.Caption:='www';
m_Label.Visible:=true;end;
destructor TLongOilEdit.Destory;
begin
m_Label.Free;
m_Edit.Free;end;
end.
还有,看了你的类代码,构造函数中的参数一般只有一个,不知你后一个参数是什么意思?(请指教)。
当然在按钮事件中声明这个类,使用正常。因为它负责释放和添加该组件。
最后一点,既然是动态创建组件,该组件在一个Application中必须要做三件事:1.指出其拥有者是谁;2.要在Application的构造函数中添加该组件;3.同样要在Application的析构函数中负责释放该组件。
本人菜鸟一个,见笑!