{"id":6089,"date":"2025-12-17T09:34:56","date_gmt":"2025-12-17T01:34:56","guid":{"rendered":"https:\/\/blog.qdac.cc\/?p=6089"},"modified":"2025-12-17T09:34:56","modified_gmt":"2025-12-17T01:34:56","slug":"%e6%95%99%e7%a8%8b-%e5%9f%ba%e4%ba%8e-rtti-%e5%88%9b%e5%bb%ba-vcl-fmx-%e7%9a%86%e5%8f%af%e7%94%a8%e7%9a%84%e5%ae%9a%e6%97%b6%e5%99%a8","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=6089","title":{"rendered":"[\u6559\u7a0b] \u57fa\u4e8e RTTI \u521b\u5efa VCL\/FMX \u7686\u53ef\u7528\u7684\u5b9a\u65f6\u5668"},"content":{"rendered":"\n<p class=\"wp-block-paragraph\">\u6211\u4eec\u5728\u7a0b\u5e8f\u4e2d\u7ecf\u5e38\u7528\u5230\u5b9a\u65f6\u5668\uff0c\u4f46\u662f\u5982\u679c\u4f60\u7684\u4ee3\u7801\u60f3\u540c\u65f6\u5728VCL\u548cFMX\u4e2d\u4f7f\u7528\uff0c\u90a3\u4e48\u7531\u4e8e  VCL \u7684 TTimer \u4f4d\u4e8e Vcl.ExtCtrls \u5355\u5143\uff0c\u800c FMX \u7684 TTimer \u4f4d\u4e8e FMX.Types \u4e2d\uff0c\u9020\u6210\u6211\u4eec\u6ca1\u6709\u529e\u6cd5\u7b80\u5355\u7684\u521b\u5efa\u8de8\u6846\u67b6\u7684 TTimer  \u7c7b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u597d\u5728\uff0c\u6211\u4eec\u8fd8\u6709 RTTI \u8fd9\u4e2a\u4e1c\u897f\uff0c\u800c TTimer  \u65e0\u8bba VCL \u8fd8\u662f FMX \u90fd\u662f\u57fa\u4e8e TComponent \u6765\u7684\uff0c\u6240\u4ee5\uff0c\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528\u4e0b\u9762\u7684\u4ee3\u7801\u6765\u521b\u5efa\u516c\u5171\u7684Timer\u3002\u4e0b\u9762\u662f\u53c2\u8003\u4ee3\u7801\uff0c\u6ce8\u610f\u5f15\u7528 System.Rtti \u5355\u5143\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>function CreateTimer(AOwner:TComponent;AInterval:Cardinal;AOnTimer:TNotifyEvent):TComponent;\nvar\n  AType:TRttiType;\n  AContext:TRttiContext;\n  AValue:TValue;\nbegin\n  AContext:=TRttiContext.Create;\n  AType := AContext.FindType('Vcl.ExtCtrls.TTimer');\n  if not Assigned(AType) then\n  begin\n    AType:=AContext.FindType('FMX.Types.TTimer');\n    if not Assigned(AType) then\n      Exit(nil);\n  end;\n  if Assigned(AType.Handle.TypeData.ClassType) then\n  begin\n    Result := TComponentClass(AType.Handle.TypeData.ClassType).Create(AOwner);\n    if Assigned(AOnTimer) then\n    begin\n      TValue.Make&lt;TNotifyEvent>(AOnTimer,AValue);\n      AType.GetProperty('OnTimer').SetValue(Result,AValue);\n    end;\n    if AInterval&lt;>1000 then\n    begin\n      AValue:=AInterval;\n      AType.GetProperty('Interval').SetValue(Result,AValue);\n    end;\n  end;\nend;<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u5f53\u7136\uff0c\u4e3a\u4e86\u66f4\u597d\u7528\u4e00\u4e9b\uff0c\u6211\u4eec\u505a\u4e00\u4e2a\u7b80\u6613\u7684\u5c01\u88c5\uff0c\u5f15\u7528\u4e0b System.Rtti,System.TypInfo \u4e24\u4e2a\u5355\u5143\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>type\n  TZTimer = record\n    class function Create(AOwner: TComponent): TComponent; overload; static;\n    class function Create(AOwner: TComponent; AOnTimer: TNotifyEvent; AInterval: Cardinal = 1000;\n      AEnabled: Boolean = true): TComponent; overload; static;\n    class procedure SetEnabled(AOwner: TComponent; AEnabled: Boolean); static;\n    class function GetEnabled(AOwner: TComponent): Boolean; static;\n    class procedure SetInterval(AOwner: TComponent; AInterval: Cardinal); static;\n    class function GetInterval(AOwner: TComponent): Cardinal; static;\n    class procedure SetOnTimer(AOwner: TComponent; AOnTimer: TNotifyEvent); static;\n    class function GetOnTimer(AOwner: TComponent): TNotifyEvent; static;\n    class property Enabled&#91;AOwner: TComponent]: Boolean read GetEnabled write SetEnabled;\n    class property Interval&#91;AOwner: TComponent]: Cardinal read GetInterval write SetInterval;\n    class property OnTimer&#91;AOwner: TComponent]: TNotifyEvent read GetOnTimer write SetOnTimer;\n  end;\n\n{ TZTimer }\n\nclass function TZTimer.Create(AOwner: TComponent): TComponent;\nvar\n  AType: TRttiType;\n  AContext: TRttiContext;\nbegin\n  AContext := TRttiContext.Create;\n  AType := AContext.FindType('Vcl.ExtCtrls.TTimer');\n  if not Assigned(AType) then\n  begin\n    AType := AContext.FindType('FMX.Types.TTimer');\n    if not Assigned(AType) then\n      Exit(nil);\n  end;\n  if Assigned(AType.Handle.TypeData.ClassType) then\n    Result := TComponentClass(AType.Handle.TypeData.ClassType).Create(AOwner)\n  else\n    Result := nil;\nend;\n\nclass function TZTimer.Create(AOwner: TComponent; AOnTimer: TNotifyEvent; AInterval: Cardinal; AEnabled: Boolean)\n  : TComponent;\nbegin\n  Result := Create(AOwner);\n  if Assigned(AOnTimer) then\n    OnTimer&#91;Result] := AOnTimer;\n  if AInterval &lt;> 1000 then\n    Interval&#91;Result] := AInterval;\n  if not AEnabled then\n    Enabled&#91;Result] := false;\nend;\n\nclass function TZTimer.GetEnabled(AOwner: TComponent): Boolean;\nbegin\n  Result := GetOrdProp(AOwner, GetPropInfo(AOwner, 'Enabled')) &lt;> 0;\nend;\n\nclass function TZTimer.GetInterval(AOwner: TComponent): Cardinal;\nbegin\n  Result := GetOrdProp(AOwner, GetPropInfo(AOwner, 'Interval'));\nend;\n\nclass function TZTimer.GetOnTimer(AOwner: TComponent): TNotifyEvent;\nvar\n  AMethod: TMethod absolute Result;\nbegin\n  AMethod := GetMethodProp(AOwner, GetPropInfo(AOwner, 'OnTimer'));\nend;\n\nclass procedure TZTimer.SetEnabled(AOwner: TComponent; AEnabled: Boolean);\nbegin\n  SetOrdProp(AOwner, GetPropInfo(AOwner, 'Enabled'), Ord(AEnabled));\nend;\n\nclass procedure TZTimer.SetInterval(AOwner: TComponent; AInterval: Cardinal);\nbegin\n  SetOrdProp(AOwner, GetPropInfo(AOwner, 'Interval'), AInterval);\nend;\n\nclass procedure TZTimer.SetOnTimer(AOwner: TComponent; AOnTimer: TNotifyEvent);\nvar\n  AMethod: TMethod absolute AOnTimer;\nbegin\n  SetMethodProp(AOwner, GetPropInfo(AOwner, 'OnTimer'), AMethod);\nend;<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u73b0\u5728\u6211\u4eec\u5c31\u53ef\u76f4\u63a5\u5728VCL\/FMX \u7528\u540c\u4e00\u5957\u4ee3\u7801\u521b\u5efa TTimer \u5b9e\u4f8b\u4e86\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>var\n  ATimer:TComponent;\nbegin\n  ATimer := TZTimer.Create(Self);\n  TZTimer.Interval&#91;ATimer] := 100;\n  TZTimer.OnTimer&#91;ATimer] := DoTimer;\n  TZTimer.Enabled&#91;ATimer] := true;\nend;<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u5f53\u7136\uff0c\u6211\u4eec TZTimer \u8fd8\u989d\u5916\u5c01\u88c5\u4e86\u4e00\u4e2a Create \u7684\u91cd\u8f7d\uff0c\u53ef\u4ee5\u76f4\u63a5\u5c06\u4e0a\u9762\u7684\u4ee3\u7801\u7b80\u5316\u4e3a\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>TZTimer.Create(Self,DoTimer,100,true);<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\"><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u6211\u4eec\u5728\u7a0b\u5e8f\u4e2d\u7ecf\u5e38\u7528\u5230\u5b9a\u65f6\u5668\uff0c\u4f46\u662f\u5982\u679c\u4f60\u7684 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[69,8,603],"tags":[149,845,237],"class_list":["post-6089","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-delphi","category-603","tag-fmx","tag-ttimer","tag-vcl"],"views":306,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/6089","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6089"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/6089\/revisions"}],"predecessor-version":[{"id":6090,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/6089\/revisions\/6090"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6089"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6089"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6089"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}