//点击不同按钮生成不同页面加载到某个panel上面.procedure TMainForm.DemoButtonClick(Sender: TObject); var NewDemoClass: TFormClass; // TFormClass = class of TForm; 涉及到类的类 知识点: NewDemoClass表示为窗体类的类,有待考证 NewDemo: TForm; begin case (Sender as TSpeedButton).Tag of 0: NewDemo…