怎么建立一个过程呀(50分)

  • 主题发起人 主题发起人 lslyl
  • 开始时间 开始时间
L

lslyl

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在form9里建立一个过程set_readonly怎么建立呀
 
代码: 
type
 TForm9 = class(TForm)
 ...
 end
 procedure set_readonly(...);
implementation
...
procedure set_readonly(...);
begin
   ...
end;
...
end;
[:D][:D][:D]
 
procedure set_readonly(...);
放在private 里就是私有的过程
放在public 里就是公有的过程
调用则：form1.set_readonly(...);
 
楼上说的应该对啊，很简单的
在form9中
type
...
private
{ Private declarations }
//在这里也可以procedure set_readonly(...);
public
//在这里也可以procedure set_readonly(...);
end;
在上面写完procedure set_readonly(...);后按ctrl-shift-C，会自动完成
 
to 楼上和楼上上的，
[:(!]俺放外面就不行么？[:(!]

[:D][:D][:D]
 
放在外面也可以啊。[:D][:)][8D]

type
TForm9 = class(TForm)
...
end
//procedure set_readonly(...);
implementation
...
procedure set_readonly(...);
begin
//这样调用Form9的东西
form9.caption := '可以的';
...
end;
...
end;
 
to 影 子：
你这个明明是放在里面嘛
 
对，可以，不过声明应该放到implementation前或者不写声明,但要把定义放到调用这个过程前
 

什么外面与里面？好象没什么必要讨论这个问题，大不上新建一个unit，uses它。[:)]
 
值不值得讨论这个问题是另外一个问题嘛，这里讨论的是这个问题，其他问题其他地方讨论
[:D][:D][:D][:D]
[:D][:D][:D][:D]
[:D][:D][:D][:D]
[:D][:D][:D][:D]
 
先在interface部分写上方法申明，在Ctrl+c，delphi会自动帮你完成其他工作。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
Q
建立数据库(200分)
回复
10
查看
153
雪中漫步
雪
T
oracle 中怎么建立临时表？(100分)
回复
7
查看
170
tlihui
T
M
怎样查看sql2000中某个数据库建立以来对其所做过的一切操(sql2000日志问题)?(200分)
回复
2
查看
111
orlen
O
S
能否用Delphi建立一个SQL Server 2000 的数据库？(100分)
回复
5
查看
180
sherwin_howe
S
后退
顶部