德尔福VCL：表单元素自定义过程/函数

Question

未申报我有这样的：

procedure Welcome(user: string; accesslevel: integer); 
begin 
    if accesslevel>= 10 then btCustomers.Text = 'Customer overview'; 
end; 

虽然，在窗体上存在按钮，BTCUSTOMERS被宣布为“未声明的标识符”。我错过了什么？

P.S.我知道这应该由窗体OnCreate处理，但欢迎程序从外部窗体调用。

Answer 1

，你可以到引用传递到形式，使得按钮可以反过来引用。

procedure Welcome(form: TMyForm; user: string; accesslevel: integer); 
begin 
    if accesslevel>= 10 then form.btCustomers.Text = 'Customer overview'; 
end; 

但是，你有作为它的第一个参数的对象引用全局范围功能的时候，你该对象的方法的候选者。所以，请将方法添加到TMyForm。

procedure TMyForm.Welcome(user: string; accesslevel: integer); 
begin 
    if accesslevel>= 10 then btCustomers.Text = 'Customer overview'; 
end; 

，并调用它是这样的：

MyForm.Welcome(user, accesslevel);