随笔分类 - firemonkey
firemonkey
摘要:procedure TForm1.Button1Click(Sender: TObject);var ChildForm: TForm2;begin ChildForm := TForm2.Create(nil); ChildForm.ShowModal( procedure(ModalResult
阅读全文
摘要:在之前,我们知道有三种方法: ExtractFilePath(ParamStr(0)) ExtractFilePath(Application.ExeName) GetCurrentDir + '\' 在firemonkey中,Windows模式下第一种、第三种还有效: ExtractFilePat
阅读全文