Question

delphi7中定义一个过程procedure tform1.wenzi(lbl:TLabel); 如何将Label1控件当参数传递给lbl

Answer 1

procedure  WENZI(S:TLabel);
begin
    showmessage(S.Caption);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    Label1.Caption:='你好！';
    WENZI(Label1);
end;