{"id":2027,"date":"2015-02-09T19:26:01","date_gmt":"2015-02-09T11:26:01","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=2027"},"modified":"2015-03-11T17:39:21","modified_gmt":"2015-03-11T09:39:21","slug":"fmx-android-%e4%b8%8b%e5%a6%82%e4%bd%95%e8%ae%a9%e7%bc%96%e8%be%91%e6%a1%86%e4%b8%ad%e8%be%93%e5%85%a5%e6%96%87%e6%9c%ac","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=2027","title":{"rendered":"[FMX] Android \u4e0b\u5982\u4f55\u8ba9\u7f16\u8f91\u6846\u4e2d\u53ea\u8f93\u5165\u6570\u5b57"},"content":{"rendered":"<p>XE 7 \u4e2d Android \u4e0b\uff0c\u5b57\u7b26\u4e0d\u4f1a\u89e6\u53d1 OnKeyDown \u4e8b\u4ef6\uff0c\u6240\u4ee5\u4f60\u65e0\u6cd5\u518d\u5728\u7f16\u8f91\u6846\u4e2d\u8fc7\u6ee4\u4e00\u4e9b\u7279\u6b8a\u5b57\u7b26\uff0c\u7981\u6b62\u7528\u6237\u8f93\u5165\u3002\u867d\u7136 XE7 \u7684TEdit \u63d0\u4f9b\u4e86\u4e00\u4e2a FilterChar \uff0c\u4f46\u9057\u61be\u7684\u662f\u5b83\u4f9d\u7136\u4e0d\u597d\u3002\u901a\u8fc7\u5206\u6790\uff0c\u5176\u63d0\u4f9b\u4e86\u4e00\u4e2a OnValidating \u65b9\u6cd5\u5728\u7528\u6237\u8f93\u5165\u4e00\u4e2a\u5b57\u7b26\u65f6\uff0c\u89e6\u53d1\u6765\u8ba9\u60a8\u9a8c\u8bc1\u8f93\u5165\u7684\u6709\u6548\u6027\u3002\u4f46\u4e0d\u5e78\u7684\u662f\uff0c\u4f60\u5728 OnValidating \u4e2d\u4fee\u6539 Text \u7684\u503c\u4e0d\u4f1a\u5f71\u54cd\u663e\u793a\u7684\u6548\u679c\uff0c\u4e2a\u4eba\u8ba4\u4e3a\u8fd9\u662f\u4e00\u4e2aBug\uff0c\u95ee\u9898\u53d1\u751f\u5728 FMX.Edit.Style.pas \u4e2d\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">procedure TStyledEdit.EndIMEInput;\r\nbegin\r\n  Model.DisableNotify;\r\n  try\r\n    Model.Text := FTextService.CombinedText;\r\n  finally\r\n    Model.EnableNotify;\r\n  end;\r\n  FTextService.Text := FTextService.CombinedText;\/\/\u6b64\u884c\u5e94\u4e3a FTextService.Text:=Model.Text;\r\n  FTextService.CaretPosition := Point(GetOriginCaretPosition + FTextService.CombinedText.Length - FTextService.Text.Length, 0);\r\n  RepaintEdit;\r\nend;<\/pre>\n<p>\u4f46\u4fee\u6539\u6e90\u7801\u6211\u5e76\u4e0d\u89c9\u5f97\u662f\u4e00\u4e2a\u597d\u529e\u6cd5\uff0c\u6682\u65f6\uff0c\u6211\u4eec\u53ef\u4ee5\u901a\u8fc7\u5f02\u6b65\u89e6\u53d1\u4e00\u4e2a\u4e8b\u4ef6\u6765\u4fee\u6539\u7f16\u8f91\u6846\u7684\u5185\u5bb9\uff1a<\/p>\n<pre class=\"lang:delphi decode:true\">procedure TForm1.Edit1Validating(Sender: TObject; var Text: string);\r\nvar\r\n  p,pd,pds:PQCharW;\r\n  d,e:Integer;\r\n  S:String;\r\nbegin\r\nif Length(Text)&gt;0 then\r\n  begin\r\n  SetLength(S,Length(Text));\r\n  p:=PQCharW(Text);\r\n  pd:=PQCharW(S);\r\n  pds:=pd;\r\n  if p^ in ['+','-'] then\r\n    begin\r\n    Inc(p);\r\n    pd^:=p^;\r\n    Inc(pd);\r\n    end;\r\n  d:=0;\r\n  e:=0;\r\n  while p^&lt;&gt;#0 do\r\n    begin\r\n    if p^ in ['0'..'9'] then\r\n      begin\r\n      pd^:=p^;\r\n      Inc(pd);\r\n      end\r\n    else if p^='.' then\r\n      begin\r\n      Inc(d);\r\n      if d=1 then\r\n        begin\r\n        pd^:=p^;\r\n        Inc(pd);\r\n        end;\r\n      end\r\n    else if p^ in ['e','E'] then\r\n      begin\r\n      Inc(e);\r\n      if e=1 then\r\n        begin\r\n        if d&lt;=1 then\r\n          begin\r\n          pd^:=p^;\r\n          Inc(pd);\r\n          end;\r\n        end;\r\n      end;\r\n    Inc(p);\r\n    end;\r\n  Workers.Post(procedure (AJob:PQJob)\r\n    begin\r\n    Form1.Edit1.Text:=AJob.ExtData.AsString;\r\n    end,TQJobExtData.Create(StrDupX(pds,pd-pds)),True,jdfFreeAsObject);\r\n  end;\r\nend;\r\n<\/pre>\n<p>\u4e0a\u9762\u7684\u4ee3\u7801\u8ba9\u5176\u53ea\u80fd\u8f93\u5165\u6570\u5b57\uff0c\u5bf9\u4e8e\u975e\u6570\u5b57\u7684\u952e\u503c\u5c06\u88ab\u76f4\u63a5\u8fc7\u6ee4\u6389\u3002\u6ce8\u610f\uff0c\u6211\u7528\u5230\u4e86 QWorker.Post \u65b9\u6cd5\u548c QString.StrDupX \u51fd\u6570\uff0c\u60a8\u53ef\u4ee5\u66ff\u6362\u5b83\u4eec\u4e3a\u81ea\u5df1\u7c7b\u4f3c\u7684\u65b9\u6cd5\uff0c\u5982\uff1a<a href=\"https:\/\/blog.qdac.cc\/?p=1090\" target=\"_blank\">\u5728FMX\u4e2d\u5b9e\u73b0PostMessage\u7684\u65b9\u6cd5<\/a>\u3002<\/p>\n<p>QString \u4e2d\u63d0\u4f9b\u4e86\u4e00\u4e2a FilterCharW \u51fd\u6570\u548c FilterNoNumberW \u51fd\u6570\u6765\u63d0\u4f9b\u4e00\u4e9b\u8f85\u52a9\u7684\u8fc7\u6ee4\u529f\u80fd\uff0c\u4e0a\u9762\u7684\u4ee3\u7801\u5982\u679c\u7528 FilterNoNumberW \u53ef\u4ee5\u76f4\u63a5\u7b80\u5316\u4e3a\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">procedure TForm1.Edit1Validating(Sender: TObject; var Text: string);\r\nbegin\r\nif Length(Text)&gt;0 then\r\n  begin  \r\n  Workers.Post(procedure (AJob:PQJob)\r\n    begin\r\n    Form1.Edit1.Text:=AJob.ExtData.AsString;\r\n    end,TQJobExtData.Create(FilterNoNumberW(Text)),True,jdfFreeAsObject);\r\n  end;\r\nend;<\/pre>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>XE 7 \u4e2d Android \u4e0b\uff0c\u5b57\u7b26\u4e0d [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","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":[145,8,21],"tags":[338,337,336],"class_list":["post-2027","post","type-post","status-publish","format-standard","hentry","category-android","category-delphi","category-misc","tag-338","tag-337","tag-336"],"views":6747,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/2027","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=2027"}],"version-history":[{"count":7,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/2027\/revisions"}],"predecessor-version":[{"id":2119,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/2027\/revisions\/2119"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2027"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2027"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2027"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}