1)非RTTI方式适用于所有的DELPHI版本 unit untMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Buttons; type TFrmMain = class(TForm) Panel1: TPanel; SpeedButton1: TSpeedButton; procedure btnClick(Sender: TObj…