怎么建立一个过程呀(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会自动帮你完成其他工作。
 
后退
顶部