デルファイVCL：私はこれを持っているカスタムプロシージャ/ファンクションで宣言されていない要素

Question

フォーム：ボタンがフォーム上に存在している間

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

ものの、btCustomersを「宣言されていない識別子」宣言されています。私は何が欠けていますか？

P.S.私はこれがフォームOnCreateによって処理される必要があることを認識していますが、Welcomeプロシージャは外部フォームから呼び出されます。

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);