编译都通过了,但在调用自定义过程出错
以下是我的源码,编译都通过了,但在调用自定义过程出错
//窗体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.