德爾福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);