2011年10月1日
rtti多国语言
摘要： procedure TBaseForm.SetControlCaptions(Container: TWinControl);var I: Integer; sCaption, sNewCaption, sLanguage: string; T: TRttiType; P: TRttiProperty;begin if AppConfig.Language = lgOrigal then Exit; T := TRttiContext.Create.GetType(Container.ClassInfo); P := T.GetProperty('Caption'); if P 阅读全文
posted @ 2011-10-01 21:59 delphi中间件 阅读(270) 评论(0) 推荐(0)