델파이 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);