<?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 如何利用脚本专家隐藏 RAD Studio 10 Seattle 自带的编辑器工具栏<br /><small>直接上代码吧，有兴趣朋友可以详细看看代码。<br />
[code]program HideEditorToolBar;<br />
<br />
uses<br />
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;<br />
<br />
var<br />
  I: Integer;<br />
  Control: TControl;<br />
  Parent: TWinControl;<br />
begin<br />
  Control := CnOtaGetCurrentEditControl;<br />
  if Control = nil then<br />
  begin<br />
    ErrorDlg('NO EditControl Found.');<br />
    Exit;<br />
  end;<br />
<br />
  Parent := Control.Parent;<br />
  if Parent = nil then<br />
  begin<br />
    ErrorDlg('NO EditControl Parent Fou ..</small><br />
</p>
<p>#1 <a href="index.php?action=thread&amp;tid=153768&amp;start=0&amp;offset=497&amp;sid=069hsR">&gt;&gt;Next Page</a><br />
<br />Forum:<a href="index.php?action=forum&amp;fid=28&amp;sid=069hsR">技术板块灌水区 ...</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=153768&amp;sid=069hsR">如何利用脚本专家隐藏 ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=158036&amp;sid=069hsR">新人报到，请大家多多支 ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=069hsR">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>