摘要:
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 阅读全文