L lslyl Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #1 我想在form9里建立一个过程set_readonly怎么建立呀
G Grape Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #2 代码: type TForm9 = class(TForm) ... end procedure set_readonly(...); implementation ... procedure set_readonly(...); begin ... end; ... end; [][][]
代码: type TForm9 = class(TForm) ... end procedure set_readonly(...); implementation ... procedure set_readonly(...); begin ... end; ... end; [][][]
W wwolf Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #3 procedure set_readonly(...); 放在private 里就是私有的过程 放在public 里就是公有的过程 调用则:form1.set_readonly(...);
R resun Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #4 楼上说的应该对啊,很简单的 在form9中 type ... private { Private declarations } //在这里也可以procedure set_readonly(...); public //在这里也可以procedure set_readonly(...); end; 在上面写完procedure set_readonly(...);后按ctrl-shift-C,会自动完成
楼上说的应该对啊,很简单的 在form9中 type ... private { Private declarations } //在这里也可以procedure set_readonly(...); public //在这里也可以procedure set_readonly(...); end; 在上面写完procedure set_readonly(...);后按ctrl-shift-C,会自动完成
G Grape Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #5 to 楼上和楼上上的, [!]俺放外面就不行么?[!] [][][]
影 影 子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #6 放在外面也可以啊。[][][8D] type TForm9 = class(TForm) ... end //procedure set_readonly(...); implementation ... procedure set_readonly(...); begin //这样调用Form9的东西 form9.caption := '可以的'; ... end; ... end;
放在外面也可以啊。[][][8D] type TForm9 = class(TForm) ... end //procedure set_readonly(...); implementation ... procedure set_readonly(...); begin //这样调用Form9的东西 form9.caption := '可以的'; ... end; ... end;
R resun Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #8 对,可以,不过声明应该放到implementation前或者不写声明,但要把定义放到调用这个过程前
影 影 子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #9 什么外面与里面?好象没什么必要讨论这个问题,大不上新建一个unit,uses它。[]
G Grape Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #10 值不值得讨论这个问题是另外一个问题嘛,这里讨论的是这个问题,其他问题其他地方讨论 [][][][] [][][][] [][][][] [][][][]
F fangchangjiang Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-20 #11 先在interface部分写上方法申明,在Ctrl+c,delphi会自动帮你完成其他工作。