创建了一个组件声明一个字段时出现问题,单元代码如下:
unit Button1;interfaceuses
SysUtils, Classes, Controls, StdCtrls;type
TButton1 = class(TButton)
a :tedit;
bb : integer; //这里报错
procedure bb ( sender :tobject);
private
{ Private declarations } protected
{ Protected declarations }
public
{ Public declarations }
aa :integer; published
{ Published declarations } end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('new', [TButton1]);
end; procedure tbutton1.bb ( sender :tobject);
begin
beep;
end;
end.请问
a :tedit;
bb : integer;
a :tedit;就可以, 这两个字段的声明实质不一样吗? bb默认为published吗?
unit Button1;interfaceuses
SysUtils, Classes, Controls, StdCtrls;type
TButton1 = class(TButton)
a :tedit;
bb : integer; //这里报错
procedure bb ( sender :tobject);
private
{ Private declarations } protected
{ Protected declarations }
public
{ Public declarations }
aa :integer; published
{ Published declarations } end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('new', [TButton1]);
end; procedure tbutton1.bb ( sender :tobject);
begin
beep;
end;
end.请问
a :tedit;
bb : integer;
a :tedit;就可以, 这两个字段的声明实质不一样吗? bb默认为published吗?
解决方案 »
- 请问有没有办法在D7开发的win32程序中调用.net的库?
- combox组件如何设定默认值?
- 请教,怎么让浮点数保留2位小数
- 问一个怀旧的问题,关于在dos下如何显示如笑脸、黑桃之类的特殊字符。
- 怎样在自己的博克的“公告”下面加入一个图片或是一个时钟?
- 又见sql语句问题.谢谢,提供有价值线索者,另加30分
- 关于应用服务器的超难问题,高手快来!
- 新手请教:如果两个单元之间需要相互调用其中的函数,应该怎么设置?
- 简单问题,如何在运行期引入另一单元
- 我的數據庫怎麼連不上,誰有空1分鐘幫我看看????
- 各位大哥帮帮我啊,这个IF THEN用法对吗。为什么我要错呀。
- 一些扫描工具可以探测sql server弱口令,他们是用什么方式连接的数据库?
bb : integer; //这里报错
procedure bb ( sender :tobject);procedure bb 與變量 bb 同名???