{"id":105,"date":"2007-05-12T14:17:53","date_gmt":"2007-05-12T12:17:53","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/no-tabstops-in-dll\/"},"modified":"2007-05-12T14:17:54","modified_gmt":"2007-05-12T12:17:54","slug":"no-tabstops-in-dll","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/no-tabstops-in-dll\/","title":{"rendered":"No TabStops in DLL?!?"},"content":{"rendered":"<p><em>>This all works, except for some reason I can&#8217;t switch between edit boxes<br \/>\n>using tabs from the dll. It worked fine in the original.<\/em><br \/>\nI don&#8217;t know if it helps, but you can try<\/p>\n<p>a.) use packages<br \/>\nb.) patch forms.pas<\/p>\n<p>[code lang=&#8221;delphi&#8221;]function TApplication.IsKeyMsg(var Msg: TMsg): Boolean;<br \/>\nvar<br \/>\n  Wnd: HWND;<br \/>\nbegin<br \/>\n[&#8230;]<br \/>\n\/\/ Find the nearest VCL component.  Non-VCL windows won&#8217;t know what<br \/>\n\/\/ to do with CN_BASE offset messages anyway.<br \/>\n\/\/ TOleControl.WndProc needs this for TranslateAccelerator<br \/>\n    while (FindControl(Wnd) = nil) and (Wnd <> 0) do<br \/>\n      begin<br \/>\n        Wnd := GetParent(Wnd);<br \/>\n        if wnd = Mainform.ClientHandle then begin wnd:=0; break; end;<br \/>\n      end;<br \/>\n      if Wnd = 0 then Wnd := HWnd;<br \/>\n    end;<br \/>\n    if SendMessage(Wnd, CN_BASE + Message, WParam, LParam) <> 0 then<br \/>\n          Result := True;<br \/>\n[&#8230;]<br \/>\nend;<br \/>\n[\/code]<\/p>\n<p>[tags]Delphi, DLL[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"<p>>This all works, except for some reason I can&#8217;t switch between edit boxes >using tabs from the dll. It worked fine in the&hellip;<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,97],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1H","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/105"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=105"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/105\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=105"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=105"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=105"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}