Question

delphi 自定义一个过程

delphi 自定义一个过程 如何在过程里面调用 form1里面的控件和属性呢

procedure MyFunction();
begin
if self.ckbox_AutoPlay.Checked then
begin //1
PF1F8:=Pointer(GameBase);
PF1F8:=Pointer(PF1F8^+$1C);
PF1F8:=Pointer(PF1F8^+$24);
PF1F8:=Pointer(PF1F8^+$7e8);
if ( PF1F8^=0) then
begin //2
if self.CheckFix() then

begin //3
goroad(StrToFloat(RzNumFix_X.text),StrToFloat(RzNumFix_Y.text))
end //3
else
begin //4
tabcall;
end; //4
end; //2
f1_F8(1);
end; //1
end;

我把这个定义成一个过程但是出错了

Answer 1

定义一个过程的话，如果没有参数，过程名称后面的括号是不需要的

如果要使用form1的东西，如果form1是个变量的话，可以直接使用form1.xx

或者，把这个过程定义到form1所在的类里面

把过程名称这行改成下面这样，如果form1的类是TForm1的话。
procedure TForm1.MyFunction;

然后，按Ctrl+Shift+C,delphi会在TForm1里自动添加你的这个过程。

Answer 2

procedure MyFunction();
不在Form1的作用域里面,不能直接访问Form1的变量.
需要访问Form1的变量 都必须前面加Form1.

Answer 3

你需要把这个过程添加成Form1的成员

Answer 4

procedure Form1.MyFunction();