2014年9月24日
Firemonkey 移动平台 Form 显示使用 ShowModal 范例
摘要： procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.ShowModal(procedure(ModalResult : TModalResult) begin ... 阅读全文
posted @ 2014-09-24 12:09 龟山Aone 阅读(2128) 评论(0) 推荐(1) 编辑