BPL的简单使用带接口的窗体 procedure TFrmMain.btn1Click(Sender: TObject); var BPLClass:TClass; begin BPLClass:=GetClass('TForm1'); If BPLClassnil then begin Caption:='Create OK'