主页 > 编程资料 > Delphi >
发布时间:2015-09-22 作者:网络 阅读:175次

procedure TForm1.Button1Click(Sender: TObject);begin     Form2 := TForm2.Create(Self);     Form2.ShowModal(procedure(ModalResult : TModalResult)                     begin                          if ModalResult = mrOK then                             // do something here                     end);end;
关键字词: