<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="max-age=180,private" />
</head>
<card id="discuz_wml" title="CnPack Forum">
<p>#1 TCnInputHelper Windows 10 阴影问题<br /><small>TCnInputHelper 弹出的几个窗口在 Windows 10 环境中会出现双阴影，看捉挺别扭的，建议判断一下 Windows 10 吧。<br />
下面这段代码中的 CheckWinXP<br />
procedure TCnInputListBox.CreateParams(var Params: TCreateParams);<br />
  if CheckWinXP then<br />
    Params.WindowClass.style := CS_DBLCLKS or CS_DROPSHADOW<br />
  else<br />
    Params.WindowClass.style := CS_DBLCLKS;<br />
<br />
// 这有段代码，看能不能用，或是有更好的方法。<br />
function IsWindows10: Boolean;<br />
var<br />
  VerInfo ..</small><br />
</p>
<p>#1 <a href="index.php?action=thread&amp;tid=194577&amp;start=0&amp;offset=497&amp;sid=8Jvhmp">&gt;&gt;Next Page</a><br />
<br />Forum:<a href="index.php?action=forum&amp;fid=8&amp;sid=8Jvhmp">CnPack IDE 专家包（CnW ...</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=194577&amp;sid=8Jvhmp">TCnInputHelper Windo ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=193414&amp;sid=8Jvhmp">XE10怎么安装cnvcl_20 ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=8Jvhmp">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>