2016年5月23日
firemonkey打开子窗体
摘要： procedure TForm1.Button1Click(Sender: TObject);var ChildForm: TForm2;begin ChildForm := TForm2.Create(nil); ChildForm.ShowModal( procedure(ModalResult 阅读全文
posted @ 2016-05-23 09:56 delphi中间件 阅读(1070) 评论(0) 推荐(0)
firemonkey获取当前文件所在路径的方法
摘要： 在之前，我们知道有三种方法： ExtractFilePath(ParamStr(0)) ExtractFilePath(Application.ExeName) GetCurrentDir + '\' 在firemonkey中，Windows模式下第一种、第三种还有效： ExtractFilePat 阅读全文
posted @ 2016-05-23 09:54 delphi中间件 阅读(1023) 评论(0) 推荐(0)