标签:style blog color for div sp on c log
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;
标签:style blog color for div sp on c log
原文地址:http://www.cnblogs.com/onechen/p/3990395.html