定义一个函数，他的参数是一个类如tframe,如何实现？

Question

定义一个函数，他的参数是一个类如tframe,如何实现？

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure GoClass(AClass: TClass);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  GoClass(TFrame);
end;procedure TForm1.GoClass(AClass: TClass);
begin
  //<---- ToDo
  ShowMessage(AClass.ClassName);
end;end.