Delphi 封裝(2)類的封裝

    unit Unit1; uses //... type Form1: TForm1; implementation procedure TForm1.FormCreate(Sender: TObject); begin Form2 := TFrom2.create(self); end; procedure TFrom1.Button2Click(

>>阅读原文<<