编译都通过了,但在调用自定义过程出错

xy1969 2003-10-16 01:25:44
以下是我的源码,编译都通过了,但在调用自定义过程出错

//窗体form2的单元Unit2文件
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;

type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
procedure myproc;//在此处声明我的过程;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
myproc;//调用我的过程出错*******************************
end;

procedure myproc;//定义我的过程;
begin
form2.obj.enabled=True; //obj是form2中的一个对象
end;

end.








...全文
66 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
huojiehai 2003-10-19
  • 打赏
  • 举报
回复
这样改试试

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;

type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
procedure myproc(aForm2: TForm2);//在此处声明我的过程;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
myproc(Self);//调用我的过程出错*******************************
end;

procedure myproc(aForm2: TForm2);//定义我的过程;
begin
aForm2.obj.enabled=True; //obj是form2中的一个对象
end;

//如果还也错的话,就是你的obj有问题了。
DelphiBird 2003-10-19
  • 打赏
  • 举报
回复
procedure myproc;//定义我的过程;
begin
obj.enabled=True; //obj是form2中的一个对象
end;

改称
procedure tform2.myproc;//定义我的过程;
begin
obj.enabled=True; //obj是form2中的一个对象
end;
coreblood 2003-10-19
  • 打赏
  • 举报
回复
procedure myproc;//定义我的过程;
begin
obj.enabled=True; //obj是form2中的一个对象
end;
xy1969 2003-10-19
  • 打赏
  • 举报
回复
对不起!
form2.obj.enabled=True; 是上传错误!.在程序中我写的是form2.obj.enabled := True;
按你说的将procedure myproc;放到public中,结果编译不能通过.
mib3000 2003-10-16
  • 打赏
  • 举报
回复
不对,应该是过程声明的位置错了,
private
{ Private declarations }
procedure myproc;//应在此处声明你的过程;
public
{ Public declarations }
procedure myproc;//或在此处声明你的过程;
mib3000 2003-10-16
  • 打赏
  • 举报
回复
form2.obj.enabled=True; ==> form2.obj.enabled := True;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧